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FOREWORD 


The  Air  Force  Research  Laboratory  initiated  development  of  the  Automated  Structural 
Optimization  System,  ASTROS,  in  1983.  Additional  development  work  was  conducted  and  completed  in 
1995  under  contract  F33615-87-C-3216.  This  document  presents  the  user  requirements  for  enhancements 
to  ASTROS  developed  under  the  Aerodynamic  Analysis  for  the  Design  Environment  (AANDE)  contract 
F33615-95-C-3224,  This  contract  has  been  conducted  by  Lockheed  Martin  Tactical  Aircraft  Systems 
(LMTAS)  and  their  subcontractor  Universal  Analytics  Inc,.  Lockheed  Martin  Aeronautical  Systems  also 
provided  assistance  to  LMTAS  in  the  AANDE  program.  Major  contributors  to  the  AANDE  program 
include  M.H.  Love,  the  Program^  Manager,  D.D.  Egle,  and  D.K.  Barker  from  LMTAS  and  R.  Coopersmith 
from  LMAS.  From  Universal  Analytics,  the  major  contributors  were  D.J.  Neill,  T.  Shimko,  S.  Chen,  and  J. 
San  Marco. 

This  report  constitutes  changes  to  the  ASTROS  version  12.0  User’s  Document  (Ref.  1).  It  is  one 
of  four  documents  generated  under  the  AANDE  program. 

Dr.  Ray  Kolonay  was  the  primary  Air  Force  program  engineer  for  the  AANDE  program.  Dr.  V.B. 
Venkayya  initiated  the  program  and  has  provided  much  of  the  overall  program  direction. 
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1.  INTRODUCTION 


The  unique  attributes  of  ASTROS  (Ref.  2)  hold  great  potential  for  savings  in  design  time, 
improvements  in  vehicle  performance,  and  reductions  in  structural  weight  in  aerospace  vehicles.  This 
potential  has  been  limited  due  to  capabilities  lacking  in  modeling  and  simulation  of  maneuver  loads  for 
design.  The  overall  objective  of  the  Aerodynamic  Analysis  for  the  Design  Environment  contract  (F33615- 
95-C-3224)  is  to  establish  high  quality,  reliable  loads  simulation  in  ASTROS.  The  Lockheed  Martin 
Tactical  Aircraft  Systems  team  including  Universal  Analytics  Inc.  and  Lockheed  Martin  Aeronautical 
Systems  accomplished  this  objective  by  providing  a  new  steady  linear  aerodynamic  preceding,  alternate 
paths  for  import  of  aerodynamic  influence  coefficient  matrices  and  nonlinear  pressure  data,  and  a  general 
asymmetric  maneuver  trim  procedure. 

The  program  encompassed  three  main  tasks: 

1.0  Phase  1  -  System  Specifications 

2.0  Phase  II  -  Wdule  Development  and  Prototyping 

3.0  Phase  III  -  "Seamless"  Integration  and  Verification. 

In  Phase  I,  changes  to  the  ASTROS  modules,  paradigms,  and  data  structures  were  identified, 
modeled,  and  tested  against  realistic  scenarios  of  fighters,  bombers,  and  transport  aircraft.  The  results  of 
these  exercises  formulated  the  plans  for  the  software  development  and  verification  and  are  documented  in 
the  Software  Design  Guide  (Ref.  3). 

In  Phase  II,  individual  modules  were  developed  and  tested  with  realistic  test  cases  as  well  as 
simple  cases  used  for  development.  In  Phase  III,  the  modules  were  integrated  into  ASTROS  through  the 
memory  manager,  database,  and  MAPOL.  Verification  studies  were  performed  simulating  ust^e  in  a 
preliminary  design  scenario. 

The  AANDE  contract  is  documented  through  four  reports.  Software  Design  Guide  (Ref.  3), 
Programmer’s  Repiort  (this  report),  the  Theoretical  and  Application  Studies  Report  (Ref.  4),  and  the  User’s 
Report  (Ref.  5).  The  Software  Design  Guide  (SDG)  was  developed  at  the  end  of  Phase  I  of  the  AANDE 
program  with  the  intention  of  defining  requirements  for  ASTROS  development  beyond  the  original  scope 
of  AANDE  but  within  die  scope  of  air-loads  in  the  design  process.  Many  of  the  requirements  in  the  SDG 
are  implemented.  The  remaining  documents  are  supplemental  to  the  ASTROS  version  12  documentation 
(Ref.  6).  Areas  of  modification  are  documented  folly.  The  Programmer’s  Report  includes  new  and 
modified  module  descriptions  and  database  entities. 

The  User’s  Report  includes  updates  to  the  ASTROS  Version  12.0  User’s  Manual  (Ref.  I)  as  well 
as  user  input  requirements  for  QUADPAN.  The  modifications  to  User’s  Manual  include: 

2.  THE  EXECUTIVE  SYSTEM  AND  MAPOL 

3.  THE  SOLUTION  CONTROL  PACKET 

4.  INPUT  DATA  STREAM 

5.  THE  BULK  DATA  PACKET 

6.  QUADPAN  MODEL  GEOMETRY 

7.  QUADPAN  DATASET 

8.  PANEL  ABUTMENTS 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK. 
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2.  THE  EXECUTIVE  SYSTEM  AND  MAPOL 


2.1  CHANGES  TO  MAPOL 

MAPOL  was  modified  in  capabilities  under  the  AANDE  program.  Also,  die  MAPOL  solution 
sequence  was  modified  extensively.  However  the  overall  solution  sequence  structure  was  maintained. 

New  in  this  version  of  ASTROS  is  the  concept  that  multiple  databases  may  be  used  within  a  given 
ASTROS  run.  This  enables  the  ASTROS  user  to  have  aerodynamic  data  residing  on  multiple  databases 
and  to  mix  and  match  data  to  assemble  an  aerodynamic  model  best  suited  to  simulate  the  aerodynamic 
characteristics  of  interest  and  obtain  accurate  air  loads  for  multidisciplinary  analysis.  To  enable  this, 
MAPOL  needed  to  handle  physical  addresses  of  data  independent  of  the  runtime  database  as  well  as  the 
data  itself. 

MAPOL  was  modified  to  support  the  longer  entity  names  implemented  in  CADDB  changes.  T^is.. 
was  done  to  fecilitate  the  creation  of  “indexed”  entity  names  in  the  aerodynamic  model  groups.  Also, 
the  CHARACTER  variable  type  is  supported  for  the  MAPOL  language. 


Declaration  CHARACTER  A,  B,  C; 

Assignment  :  A  :=  “string”; 

Comparison  :  IF  A  =  “QUADPAN”  THEN 

IF  A  “QUADPAN”  THEN 

Argument  Passing  :  CALL  MODULE  (A); 

CHARACTER  data  types  may  be  set  in  a  module  and  passed  out  to  MAPOL  with  an  updated  value-just 
like  other  number  variables. 

Then,  four  new  entity  name  types  are  listed  in  Table  2-1. 


Table  2-1  New  Entity  Name  Types  For  MAPOL  Character  Variables 


<option> 

Description 

GGMEMBER 

Group  entity  type 

RGMEMBER 

Relational  group  member 

UGMEMBER 

Unstructured  group  member 

MGMEMBER 

Matrix  group  member  | 

These  are  basically  entity  name  “variables”  rather  than  entity  name  “symbols.”  The  distinction  is 
that  the  variables  can  be  set  in  the  module  and  passed  dirough  the  MAPOL  calling  sequence.  Regular 
entity  names  are  static  -  once  declared,  they  become  a  symbol  radier  than  a  variable  name.  The  new 
feature  is  used  in  naming  the  members  of  a  group.  The  GGMEMBER  type  is  a  RELATION  on  CADDB, 
but  is  denoted  separately  so  that  argument  passing  can  perform  the  appropriate  type  checking.  The  other 
Qq>es  are  just  like  their  non-group  counterparts. 
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2.2  THE  AANDE  MAPOL  PROGRAM  LISTING 

The  AANDE  version  MAPOL  listing  of  the  standard  solution  sequence  is  given  in  the  following  pages. 

STAT  LEVL 

1  1!$***$  ! 


2 

1!$  C5CZID  <0(»)  MC0083'MAPOLSBQ  12.49 

15  JUL  1998 

17;01:52>  $ 

t 

3 

1!$***$ 

! 

4 

1!$********* 

5 

1!$ 

EXECDTTVB  SEQUENCE  FOR  ASTROS 

$! 

fi 

1!$********* 

7 

**$! 

8 

1!$ 

CONSTANTS 

FOR  SDCOKP  SET  SINGULARITT  MESSAGES 

$! 

9 

1!$********* 

10 

1! INTEGER 

SINGOSET. 

SINGASET, 

Sm^^tSET; 

t 

XI 

1!$********* 

r*$! 

12 

1!$ 

VARIABLE  DECLARATION  SEGMENT 

$! 

13 

!!$***•***** 

14 

1!$ 

$! 

15 

1! INTEGER 

GSIZE, 

NDV, 

NITER, 

BC, 

BCID, 

j 

16 

1! 

BSIZE(IOOO)  . 

PSIZBdOOO) . 

GSIZEB, 

LASTITER; 

f 

17 

UREAL 

CTL, 

CnHIN; 

I 

18 

1!  LOGICAL 

GLBCNVRG, 

APPCNVRG. 

PFLAG, 

GPRINT, 

LQADLDV, 

! 

19 

1* 

LPRINT, 

GFUNCH; 

» 

20 

IIONSTRUCT 

DCENT, 

GRIDTEMP, 

SMPLOD; 

1 

21 

1! RELATION 

DBSBIST, 

CONST, 

HPPARM, 

CONVERT, 

OCPARM, 

• 

22 

1! 

MFORM, 

GRID. 

SPOMT, 

EPOINT, 

SBQGP, 

! 

23 

1! 

BGPOT(IOOO) 

CSTM, 

FORCE, 

PORCBl, 

MOMENT, 

! 

24 

1! 

MOMENTl, 

PLOAD, 

PLQAD2, 

PL0AD4, 

GRAY, 

! 

25 

1! 

LOAD, 

BIGR, 

CON5TORD, 

BSAVB, 

t 

26 

1! 

TEMP, 

TEMPO, 

OPNLBUCK. 

OEOLBUCK, 

• 

27 

1! 

CORDIC, 

CORDIR, 

CORDIS, 

OORD2C, 

C0RD2R, 

1 

28 

1! 

C0R02S, 

GPWGGRID, 

OGPWG, 

GRADIENT; 

! 

29 

1!  RELATION 

IMPORT, 

ARCHIVE, 

OVERLAY, 

ASSEMBLE, 

DISASSBH; 

! 

30 

1!$ 

$! 

31 

1!$********« 

**$! 

32 

1!$ 

DECLARATIONS 

FOR  MODULE  MRUSBT 

$! 

33 

1!$********« 

*•$! 

34 

1!$ 

$! 

35 

I'ONSTRUCT 

USBT(IOOO) , 

GPSTdOOO) ,- 

1 

36 

1! RELATION 

SPC. 

SPCl. 

SPCADD, 

MPC, 

MPCADD, 

1 

37 

1! 

ASET, 

A5BT1, 

OMIT, 

OMITl, 

SUPORT, 

{ 

38 

1! 

JSET, 

JSETl. 

RBAR,  RBEl, 

RBB2,  RBB3, 

RROD; 

1 

39 

ItHATRIX 

(FGMN(IOOO)] 

,  [FNSFdOOO>l 

[PFOAdOOO)] 

,  [PARLdOOO)] 

,  [TMNdOOO)], 

I 

40 

1! 

(YS(IOOO)] ; 

I 

41 

1!KATRXX 

CPGMNSdOOO)], 

[FKSPSdOOO)]  , 

[PPGAS  dOOO)  ]  , 

I 

42 

1* 

(FARLSdOOO)]  ; 

1 

43 

1!$ 

$! 

44 

1!$********* 

**$! 

45 

1!$ 

DECLARATIONS 

FOR  HQOULBS  HAKEST,  BMG  AND  NLBMG 

$! 

46 

1!$***»***** 

**S! 

47 

1!$ 

S! 

48 

llONSTRUCT 

TRSP, 

DVSIZE, 

PCONPS; 

1 

49 

1!  INSTRUCT 

TRBFD, 

DVSIZBD, 

DDVSZZE; 

! 

50 

1‘IUNSTRUCT 

KBLM, 

MSLH, 

TELN; 

! 

51 

lIZONSTRUCT 

XELMD, 

MELMD, 

TELMD, 

DKBU4, 

DMEUf, 

t 

52 

1! 

OTEZM; 

1 

53 

1! RELATION 

CQDMBMl, 

QDHMIEST, 

CROD, 

CGNROD, 

RODBST, 

! 

54 

1! 

CSHBAR, 

SBEAREST, 

CTRMBM, 

TRMBMBST, 

CMASSl, 

I 

55 

1! 

OIASS2, 

MASSEST, 

COIMl, 

OdMlEST, 

CONN2. 

! 

56 

1! 

C0NM2BST, 

CBAR, 

BEAMEST, 

C0aAD4, 

QUAD4BST, 

I 

57 

1! 

CIHBXl, 

IHEZIEST, 

CIHEX2, 

IHBX2BST. 

CIHEX3, 

1 

58 

1! 

1HBX3BST. 

CELASl, 

CELAS2. 

ELASBST, 

r 

59 

1! 

PCOMP, 

PQDKBNl, 

PROD, 

PSHEAR, 

1 

60 

It 

PTRMBM, 

PMASS, 

PELAS, 

PEAR, 

PBARl, 

! 

61 

1! 

PSHBLL, 

PCOHPl, 

PODNP2, 

PIBEX, 

HATl, 

! 

62 

1! 

MAT3. 

MATS, 

HAT9. 

CIRZA3, 

TRIA3BST, 

1 

63 

1! 

DVIOPTB, 

DVTOPTP, 

DVTOPTL. 

SMATCOL, 

NLSNTCOL, 

» 

64 

1! 

BmrypB; 

1 

65 

1!$ 

$? 

66 

l!$***#**«*e 

**$! 

67 

1!$ 

DECLARATIONS 

FOR  DESIGN  VARIABLES /CONSTRAINTS  AMD  LINKING 

$! 

68 

1!$********^ 

69 

lt$ 

$! 

70 

1 {RELATION 

DBSBLM, 

DBSVARP, 

DESVARS, 

PLIST, 

BLIST, 

t 

71 

1! 

SHAPE, 

PLISTM, 

ELISIM, 

SHAPEM, 

SHP6EN; 

t 

72 

1!  RELATION 

DCONVM, 

DCONTH, 

DCOMBP, 

DCOMFT, 

DOONVM1, 

! 

73 

1! 

DCONTMM, 

DCONEPM, 

DCONFTM, 

DCQMVMP, 

DCONTHP, 

t 

74 

1! 

DCONEPP, 

DOONFTP. 

DCONALB, 

DOONCLA, 

DCONFLT, 

1 

75 

1! 

DCCnrZRH, 

DOOHSCF, 

DOONF, 

DCONSDB, 

DCCBtSDL; 

1 

76 

1! RELATION 

DCONDSP, 

DCONFRQ, 

DCONTHK, 

DCONTH2, 

DCONTH3; 

1 

77 

1! RELATION 

DCONPMN, 

DCONLMN, 

DOOHLAM; 

I 

78 

1! RELATION 

DCONBK, 

DCQNBKB; 

1 

4 


79 

1! RELATION 

glbdes. 

DESLINK, 

TFIXED, 

LOCLVAR. 

DVCT, 

1 

80 

1! 

DVCTD, 

DDVCT; 

I 

81 

1! MATRIX 

[PTRANSJ ; 

82 

1 ! IMATRIX 

[PMINTl  , 

[PMAXT] , 

[SNATl  . 

[NLSMATl  ; 

j 

83 

11$ 

$l 

84 

. . 

*$! 

85 

DECLARATIONS 

FOR  OOTPOT  PILE  PROCESSING 

(EDR/OFP) 

$l 

86 

1!$******** 

*$'. 

87 

1!$ 

$1 

88 

1! RELATION 

GRIDLIST, 

MODELIST. 

ELBMLIST, 

FREQLIST. 

TIMBLIST. 

t 

89 

1! 

ITBRLIST, 

6DVLIST, 

LDVLIST, 

DCONLIST. 

PLYLIST. 

t 

90 

1! 

DBHSLIST, 

MACHLIST, 

VBLOLIST, 

CASBLIST; 

f 

91 

1!$ 

$! 

92 

1! RELATION 

GPFELEMf 

EOSOMMRY. 

EOBAR, 

BOSLAS, 

BOHEXl. 

! 

93 

1! 

BOHEX2, 

EOHBX3, 

BOQDMNl, 

B0QnAD4, 

BOROD, 

I 

94 

1! 

BOSHBAR, 

BOTRMBM, 

GPFDATA, 

B0TRIA3; 

! 

95 

IIDNSTRUCT 

BODISC; 

I 

96 

1!$ 

$! 

97 

1! RELATION 

O6RIDL0D, 

OGRIDDSP. 

OLOCALOV, 

OAGRDDSP. 

OAGRDLOD; 

1 

98 

1!  MATRIX 

[FLOTMODB] , 

[PTGLOAD] . 

[PFGLOADl , 

[PTHLOAD] , 

[PFRLOAD] ; 

! 

99 

1!$ 

$! 

100 

1!$******** 

*$i 

101 

1!$ 

DECLARATIONS 

FOR  MODULES 

BMAl.  NLEMAl,  EMA2  AND  GLOBAL 

$l 

102 

1!$ 

MATRIX  PARTITION/RBDDCriON 

$l 

103 

!!$**•***** 

*$'. 

104 

1!$ 

$l 

105 

litmSTRUCT 

GENBL; 

! 

106 

1 » lUNSTROCT 

DKVI, 

DMVI, 

DKVIO, 

DMVIO, 

DKVIG, 

1 

107 

1! 

DMVIG, 

DMVID, 

DDMVI; 

t 

108 

1JT3NSTRUCT 

DWGHl , 

DDI«GH2; 

! 

109 

1! RELATION 

GMKCT, 

GMHCT, 

GMKCTO, 

G»icro, 

GHKCTG. 

I 

110 

1! 

0«CTG, 

GMMCTD, 

DGI#rcr; 

1 

111 

1 IMATRIX 

[KGGl, 

[KNN]  . 

[KFFl, 

[KAAI  , 

[KLLl, 

t 

112 

11 

[N6G]  , 

[MNN]  , 

[MPFl  . 

[MAAl  , 

[MLL1, 

I 

113 

1! 

{NRRBAR] , 

[MLR]  . 

[KFSl. 

[KSSl . 

[KOOINVdOOO}}. 

t 

114 

1! 

[GSPBO(IOOO)]  , 

[KLLINV(IOOO)  1 . 

[MRRdOOO)]  , 

I 

115 

1! 

[IFM(IOOO)] 

(MlGGl. 

[IFR(IOOO)]. 

[KRR), 

[DdOOO)]. 

I 

116 

1! 

(KLR], 

[KIGG], 

[LBSdOOO)], 

[M2GG1, 

[MOOl, 

; 

117 

1! 

[NQAK 

(X2GG1. 

[MAABARI  ; 

f 

118 

1  IMATRIX 

[TMPl]  , 

ITMP21 ; 

t 

119 

1 IMATRIX 

[PGl. 

[PNl. 

[PF], 

[PAl. 

I 

120 

1! 

[POl. 

[PLBAR] . 

[PR], 

[RHSdOOO)], 

(OG (1000)1. 

1 

121 

11 

m]. 

IDFl, 

[OA], 

[DLl. 

[DM]. 

f 

122 

11 

[AGdOOO}]  . 

[AN], 

lAFl, 

[AA], 

[ARl. 

1 

123 

11 

[AL]  , 

1001. 

[UOOl  . 

IPSl 

1 

124 

1 I LOGICAL 

M2G6FLAG. 

K2GGFLAG; 

! 

125 

11$ 

$! 

126 

1 I $******** 

•$! 

127 

1 1  $  DECLARATIONS  FOR 

SOLUTION  CONTROL 

$! 

128 

1!$******** 

*$! 

129 

1!$ 

$! 

130 

IIINTBGER 

NDNOPTBC, 

NBNDCOND. 

MAXITBR. 

1 

131 

11 

MPS, 

MPB. 

1 

132 

1! 

OCS. 

OCR. 

I 

133 

11 

FSDS, 

PSDB; 

1 

134 

IIINTBGER 

BLOAD, 

BHASS. 

BMQDBS, 

BSAERO, 

BFLUTR, 

I 

135 

1! 

BDXN, 

BDRSP.  ^ 

BDTR, 

BHTR, 

BDFR, 

! 

136 

1! 

BMFR. 

BGDST. 

BBLAST. 

MMPC, 

NSPC. 

1 

137 

1! 

NOMIT, 

NRSET, 

DMODES; 

j 

138 

lIRBAL 

MOVLIM, 

WINDOW, 

OCHOVLIM, 

ALPHA. 

CNVRGLIM, 

! 

139 

1! 

NRFAC, 

EPS, 

FDSTBP, 

K6R0T, 

TOLVALDE; 

I 

140 

1 1  RELATION 

JOB. 

OPTIMIZE. 

CASE; 

I 

141 

11$ 

$! 

142 

1!$******** 

*$! 

143 

1 1  $  DECLARATIONS  FOR 

SENSITIVITY 

BVALOATION 

$l 

144 

!!$*******• 

*$! 

145 

1!$ 

$l 

146 

IIINTBGER 

DDFLG, 

NACSD, 

NADS, 

HADA; 

! 

147 

1 1  LOGICAL 

ACIBOPND, 

ACTFLDT. 

ACIDYN. 

ACTABRO, 

ACTABFF. 

148 

1! 

ACTUAG. 

ACIOAOG. 

ACTPNL, 

ACTBAR; 

149 

IIONSIRUCT 

PCAS. 

PRAS, 

PCAA, 

PRAA, 

PCAB; 

150 

1! RELATION 

PDLIST; 

151 

1 I MATRIX 

[DFOUl  . 

[PGASl. 

[tISAl. 

IDOGl, 

[OMDGl, 

152 

1! 

[DPPVl . 

(DPOVJ . 

[DPNVl, 

[DPAV]  , 

(DOAVl. 

153 

11 

(DOAD) , 

[INJFV]  . 

[AGAl. 

[AMATl  , 

[DKDGl  . 

154 

1! 

[OPGV] . 

[DPLV] . 

[DURD]  , 

[DULDl  , 

CDOLV]  . 

155 

1! 

[DDELDV] . 

IDPRV] . 

[DRHS]  , 

[DFDUFl , 

(PGAAl  . 

156 

1! 

[DFDPNl  . 

[DMAGl. 

[DHDNI, 

[DMOF], 

IDMDAl, 

157 

1! 

[DM001  . 

[CMOLl. 

[DMDRl, 

CDMDl, 

IDPII . 

158 

1! 

[ORIV] . 

[ADAGC] . 

[DDRV] , 

[BFFSENS] . 

IDOILI  . 

159 

11 

[DUIR] . 

[002], 

[LRSL] . 

[LHSU]  . 

[PGAU]  . 

160 

1! 

[DFSVl  , 

[SBNSMT] ; 

I 

161 

1! IMATRIX 

[GLBSIG] . 

(DPTHVIl  , 

[DPGRVI] , 

[DPVJl  ; 

162 

1! IMATRIX 

[NLGLBSIG]  . 

[DPTHVDl , 

[DPGRVD]  , 

[DDPTHV]  . 

[DDPGRV]  ; 

163 

1!$ 

$! 

164 

!!$******•* 

*$! 

165 

11$  SUBSTRPCTORING  ENTITIES 

$l 

166 

*$! 

167 

11$ 

$! 

168 

lIRBAL 

RSTM; 

5 


169 

1! LOGICAL 

STRSYM, 

SYMTRNdOOO) 

ACTUAGGI, 

ACSMTRdOOO)  ; 

170 

1! LOGICAL 

NBWITER; 

171 

1! RELATION 

RELES; 

172 

1! MATRIX 

[HFRBALT(1000)1  ,  [HFIMAGT (1000)  ]  ; 

173 

1! MATRIX 

[HFRSALdOOO 

].  [HPIMAGdOOO)  ]  ; 

174 

1! MATRIX 

[RTKFHR) , 

(HTKPHIl . 

(KFPX]  ; 

! 

175 

1 'MATRIX 

(HIMFHR]  , 

(HTOFHIl, 

[MFFX]  ; 

; 

176 

1! MATRIX 

[HFRTPP] , 

(HFITPPl  , 

(PPX] ; 

* 

177 

1! MATRIX 

[HRGTXF] , 

[HRGSTKP] , 

[HRGPTKF]  , 

CAPX]; 

! 

178 

1 'MATRIX 

[HIGTKFl  , 

[HIGSTXF] , 

IHIGPTKP] , 

lUFX]  , 

(UAFX]  ; 

! 

179 

1 'MATRIX 

IGPTKPXl . 

[AICSl] . 

[AICS2] , 

(AICS3] . 

[AICS4]  ; 

180 

1 'MATRIX 

(GSKFHRT} , 

(GSKPHITI  . 

[AICSUM] , 

(AICDIF]  , 

[AAFX]  ; 

181 

1 {MATRIX 

IHRDPFV]  , 

[HIDPPV]  , 

[DPFVXJ ; 

182 

1 {MATRIX 

(HROHDF] , 

[HIDHUF]  , 

[DHUFX]  ; 

] 

183 

1! MATRIX 

[PGMNX(IOOO) )  , 

(PNSFXdOOO)]  , 

(UAFCXdOOO)l  ; 

t 

184 

1! MATRIX 

[PFOAX(IOOO)]  , 

(PARLXdOOO)], 

(AAFCXdOOO)  ]  ; 

1 

185 

1* MATRIX 

[RGBDNGl , 

tDUFVX] , 

IDOFVIl  ; 

j 

186 

1 {MATRIX  / 

(OAFI]  . 

lAAFI], 

[UAFCIdOOO)],  (AAFCIdOOO)]  ; 

j 

187 

1 'MATRIX 

[GAHI]  , 

(AANI)  . 

(UANCKIOOO)]  .  (AANCIdOOO)]  ; 

j 

188 

1!MA1SIX 

[UAGI(IOOO)], 

(AAGIdOOO)] 

,  (UAGCI(30. 

33)],  [AA6CI(30,33}]  ; 

{ 

189 

1 'MATRIX 

[GLBSIGI] , 

(NL6BSIGI] ; 

I 

190 

1  {MATRIX 

(OSAI], 

[AGAI]  , 

(AUAGCI]. 

(AAAGCIl  ; 

♦ 

191 

1 {MATRIX 

[OKDGIl , 

[DKAGI] . 

(DPGVI]  . 

[DMUGI]  ; 

1 

192 

1  {MATRIX 

[DPNVIl  , 

[DMDNI], 

(DPFVI] , 

[DMUFI]  ; 

! 

193 

1{  MATRIX 

{DFDUIl , 

[DFDUNX]  , 

(DFDUFI] , 

[DFSVI] ; 

1 

194 

I'DNSTROCT 

USETXdOOO)  ; 

t 

195 

l{0!ISTRnCT 

PRAAI; 

J 

196 

1!$ 

$! 

**${ 

198 

1  •  $  AERODYNAMIC  ENTITIES 

${ 

199 

. . 

*♦$! 

200 

1!$ 

$! 

201 

1{  CHARACTER 

METTOH), 

QP. 

USS; 

202 

1! CHARACTER 

MODEL; 

V 

203 

l{OGNBMBER 

SAMODEL, 

SABMODEL, 

STDYGEOH, 

RIGDALOD, 

AIOIAT, 

! 

204 

1{ 

SPLINE, 

FLEXLOAD, 

RIGDSLOD; 

1 

205 

I'RGMBMBER 

REFPARAM, 

ABR06RZD, 

CABROBOX, 

SAGBOM, 

SACONPS; 

1 

206 

1{MGMBMBBR 

CAICJ  . 

lAAIC], 

[ASAIC], 

(AIRFRC)  . 

(6TRG]  , 

1 

207 

1* 

[GSTRG] . 

(GPTKG), 

(FLXFRC] , 

[FLXDBF] . 

(SLPFRC] ; 

1 

208 

I'NGMBMBER 

{KRBALKl  , 

[KIHA6K] , 

(KIMAGP]  , 

(KIHAGS)  ; 

I 

209 

1 'MATRIX 

(KRBALTl  . 

[KIMAGTl  ; 

{ 

210 

1{8 

$! 

211 

I'nrtBGER 

SYM, 

AICSYM, 

MINDEX, 

SUB, 

s. 

1 

212 

1! 

CASBID; 

1 

213 

1{IIITB6BR 

SDBF; 

1 

214 

1{RBAL 

QDP, 

MACH; 

1 

215 

1{ LOGICAL 

LOOP. 

GOAERO, 

GOSPLINB, 

ABFLGdOOO) 

1 

216 

1! LOGICAL 

SAROONLY. 

NBNMODBL; 

1 

217 

l.'ONSTRUCr 

ACPT, 

UNMK; 

1 

218 

1{ RELATION 

ABSDRF. 

AIRFOIL. 

ABROS, 

AEFACT, 

AXSTA, 

! 

219 

1{ 

BODY. 

SPLINBl. 

SETl, 

SBT2, 

ATTACH. 

; 

220 

1* 

TRIM, 

AERO, 

BLAST, 

CABR06, 

PABR06, 

I 

221 

1! 

6B0HSA, 

AECOHPS, 

CAEROl, 

PAEROl, 

; 

222 

1{ 

CABR02, 

PABR02. 

KKAEROl, 

MXABR02, 

FLUTTER, 

; 

223 

1{ 

FLFACT, 

CLAMBDA, 

CONEFFS, 

CQNLINK, 

GBOMOA, 

t 

224 

1{ 

ABOOKPU, 

SFLINB2, 

CCRIBFFF, 

ABROGEOM, 

CAR06B0M, 

{ 

225 

11 

AERtJSBOH, 

CAROUGBO, 

TRIMDATA; 

f 

226 

It  RELATION 

STABCFA, 

STABCFS, 

SLPARM; 

; 

227 

1{ LOGICAL 

DOTRHCON; 

t 

228 

1! LOGICAL 

FDLAERO; 

, 

229 

11$ 

$! 

230 

1! RELATION 

SPLIMB3, 

PANLSn. 

PAHLST2; 

231 

1 _ 

232 

1{$  PROVISION  FOR  INCREMENT  LOADS  CALDLATION 

--51 

; 

233 

1{  LOGICAL 

YESASRO, 

YBSUDBF; 

1 

234 

1 'RELATION 

TRIMTOC; 

f 

235 

IIDNSTRUCT 

TLABBL; 

1 

236 

11$  MATRICES 

CREATED  FOR  THE  AERODYNAMIC  DOMAIN 

t 

237 

1{MATRIX 

[AEROLOAD]  ; 

\ 

238 

11  MATRIX 

(SAROLQADl  , 

[ACCBLOAD]  , 

[UDFALOAD]  ; 

1 

239 

ii$ 

I 

240 

1{$  MATRICES 

CREATED  FOR  THE  STRUCTURAL  DOMAIN 

S! 

241 

I'MAIRIX 

[GPTKN] . 

IGPTICF]  ; 

242 

1!$ 

${ 

243 

1{ MATRIX 

[UDGFORCB] , 

[UDNFORCE]  , 

(DDFPORCBl . 

(ODFFORCX] , 

[ACCFORCB]  ; 

t 

244 

1 {MATRIX 

[PAFX] ; 

f 

245 

1 'MATRIX 

(AIRFORCE] , 

j 

246 

1{ 

(AICSl . 

(KAPF). 

(PAF), 

[KAAA], 

[PAA], 

1 

247 

1{ 

[GASUBO(30,33)], 

(SKJ), 

[DUX], 

(D2JK]  . 

1 

248 

1{ 

(KARLl, 

[Rll]. 

[K21(30,33)] 

, [PARBAR] , 

(PAL], 

1 

249 

1! 

[PAR(30,33}), 

[K1112(30,33) 

1. 

[K22], 

I 

250 

1! 

[GTKN]  , 

(GTKP] , 

[6STXN]  . 

1 

251 

11 

(GSTXF]  , 

[6SKF] . 

[UGTKG]  . 

[DGTXN] , 

(OGTKPJ, 

• 

252 

11 

(OGTKA]  , 

(UGTXO], 

[UGTKAB] , 

lAITD]. 

(KARR] , 

J 

253 

11 

(R12(30.33)], 

[R22] . 

(R32(30,33)] 

.  [Kll] . 

(IC12(30,33)], 

t 

254 

11 

(PI). 

(R21(30.33)] . 

(R31(30,33)] 

,  (RL11(30,33)] , 

! 

255 

11 

(RD1X(30.33)] 

, 

[P2J. 

(MAAA], 

(IFKA(30,33)] , 

I 

256 

11 

{R13(30,33)l, 

CR33], 

[DBLC] , 

(FRIGID]  . 

t 

257 

1! 

(AARC]  , 

(AAR], 

(AAAdOOO)]  , 

(UAAdOOO)], 

[AAAGC] , 

1 

258 

1{ 

(PAOdOOO))  , 

(AAFIHP]  , 

[UAFINP] . 

(UAN), 

(AAN], 

1 

6 


2S9 

1 

[UAG(IOOO)  ]  . 

[AAG(1000)1  . 

[AAL]  . 

[AAF]  . 

[UAFl  . 

2€0 

1 

[KOOL(30,33)] 

[KOOU(30,33)] 

, 

[LBSA(30.33)]  . 

261 

1 

[PQARO(30,33) ] « 

IKAO(30.33}]  . 

[UAR] . 

tRBSA(30.33>l . 

262 

1 

[DELTA (1000)] 

, 

(PAOC(IOOO)] . 

[UAAC (1000)1 

[AAACdOOO)]  . 

263 

1 

[DAFCdOOO))  , 

[UANC{ 1000)1 

tUAGC(30,33)] 

. 

[AAFCdOOO)]  . 

264 

1 

[AANCCIOOO)  ] 

[AAGC(30,33)]  . 

[KL11(30.33)] 

, [KOll (30,33) ] . 

265 

1 

[RllDPL]  , 

[R11PAL(30.33)] . 

[R1112 (30.33) 1 , 

266 

1 

[R1113 (30,33) 1 , 

[KAOT(30,33)]  , 

[OALl ; 

267 

1 

HATRIX 

[KOOPOA] . 

[KOOKAO] , 

[PAG]. 

[PAGI]  , 

268 

1 

[ULFLXl] , 

[ULFLX21 . 

[UAFLXl] , 

[UAFLX2) . 

269 

1 

[DOFLXl] , 

[UOFLX2]. 

[UFFLXl] . 

IUPFLX21 , 

[FLXPRCll , 

270 

1 

[PLXPRC2J 

271 

1 

MATRIX 

[PLXIMP]  , 

(FLXTMPll  , 

tFLXTMP21  , 

IFLXTMP31  , 

272 

1 

[Fixmpsj . 

[FUCIMPA]  , 

(FLXKXll , 

(FLXKX21 . 

273 

1 

[GTKGKR]  , 

[GTXGKIl , 

274 

1 

[FLXFIR]  . 

[FLXFIII . 

(FLXF2R] , 

[PLXP2I1 ; 

275 

1 

MATRIX 

[OFXIHRTI  , 

[UPXIHIT]  , 

[UPXISUM] , 

(UFXIDIP]  , 

276 

1 

,  [UFX2HRT1  , 

tDFX2HIT] , 

[UFX2SUM] . 

(UFX2DIP]  . 

277 

1 

[PUCFISUM]  , 

[PLXFIDIPI . 

[FLXFZSUM]  . 

[FLXP2DIP]  ; 

278 

1 

IMATRIX 

[AJJTLI  , 

[QJJLl, 

[QKKLI. 

[QHHL]  ; 

279 

1 

$ 

$ 

280 

1 

$***•***« 

281 

1 

$  ADDITIONS  FOR  GBNBRAI.IZED  TRIM  AND  TRIM  OPTIMIZATION 

$ 

282 

1 

$***•***• 

*$ 

283 

1 

$ 

$ 

284 

1 

INTEGER 

SCHITER; 

285 

1 

LOGICAL 

SCHCNVG, 

TRMR16D; 

286 

1 

RELATION 

BMST, 

BHST2, 

DCONBMST, 

RKASS, 

SCHEDULE, 

287 

1 

TCCWBMST, 

TCONTRM, 

TPUNC, 

TODVPRM, 

TOMPPARM, 

288 

1 

TRIMOPT, 

TRIMR, 

TRIMRSLT, 

BMSTDATA, 

OBMSTLOD; 

289 

1 

$ 

$ 

290 

1 

$ 

$ 

291 

1 

$•«****•« 

292 

1 

$  DYNAMIC  RESPONSE  DECLARATIONS 

S 

293 

1 

$***•***• 

294 

1 

$ 

$ 

295 

1 

INTEGER 

HSIZB(IOOO) ; 

296 

1 

DHSTRUCT 

TFDATA, 

ICDATA, 

UDLOLY; 

297 

1 

RELATION 

LAMBDA, 

OBi<;s, 

DLONLY, 

DLQAD, 

TABLEDl, 

298 

1 

1C, 

TLQADl, 

TLQAD2. 

RLOADl, 

RLQAD2, 

299 

1 

TSTEP. 

V5DAMP, 

TABDMFl. 

DLAGS. 

TP, 

300 

1 

DMIG, 

GOST. 

FREQ. 

FREQl. 

FREQ2, 

301 

1 

FFT. 

FUITRBL; 

302 

1 

MATRIX 

[PHXXH], 

[QBJL], 

CQK7L], 

(PHIAl  . 

[Mill . 

303 

1 

[PHIO], 

[PHIF]  , 

(PBIN] , 

[PBIGdOOO)  1 

(KHHTl . 

304 

1 

[KHHFl. 

(BaBl, 

(MHHl. 

tPDT)  . 

[PDF], 

305 

1 

[XDDTI, 

[XDDF]  . 

[BDDI, 

[HOD]  . 

(ICMATRIXJ  , 

306 

1 

[UTRANA]  , 

[UFREOA]  , 

[UTRANI] , 

[UFREQI] , 

[UFRSQEl . 

307 

1 

[UTRANE] , 

[UTRANF], 

(UPREQP]  . 

[UTRANNI  . 

[UFREQNl , 

308 

1 

[UTRANG], 

[UFREQGl. 

[MHRPL(30.33) 

1, 

[BHHFL(30,33)I , 

309 

1 

[QaHLFL(30.33)] , 

(XHHPL(30.33)]  ; 

! 

310 

1 

$ 

$! 

311 

1 

$***«***« 

312 

1 

$  DECLARATIONS  FOR  GENERALIZED  DYNAMIC  REDQCTION 

(GDR) 

S! 

313 

1 

*$  r 

314 

1 

$ 

$! 

315 

1 

INTEGER 

LXSBT, 

LJSET, 

NBIV. 

GNORM, 

NGDR, 

316 

1 

ASIZE, 

LSIZE; 

317 

1 

REAL 

FMAX; 

318 

1 

RELATION 

OYNRED; 

319 

1 

MATRIX 

[F(a>RG(1000)  ] 

. [PHIOK] , 

[KOOl, 

(GGOl  . 

[KSOO] , 

320 

1 

IXQA), 

[LSOO]  , 

[PAJKl, 

(PPJK1  . 

[OFGDRl , 

321 

1 

[AFGDR]  , 

[UJKl. 

[GTMPl  ; 

322 

1 

$ 

$! 

323 

1 

$*****•*" 

*$! 

324 

1 

$  BLAST  RESPONSE  DECLARATIONS 

$! 

325 

1 

$******•• 

*$! 

326 

1 

$ 

$! 

327 

1 

REAL 

B<9P; 

328 

1 

MATRIX 

[NPART]  , 

[ID2]. 

[PHIE]  , 

[PHIR]  . 

[PHIB]  , 

329 

1 

[GEIM], 

[GBNK]  , 

[GBNF] . 

[C5BMQ), 

[GENQL]  , 

330 

1 

[OTSLP]  . 

[FTFl. 

[QRB], 

[OEBl. 

[KEQEl, 

331 

1 

[LXQ}, 

[UKQl, 

[GFRl. 

IGFE), 

[BTEM]  , 

! 

332 

1 

[BLSTJA] , 

[BLGTJA], 

[BFRC]  , 

[MATTRl , 

[MATS5]  , 

333 

1 

[KEE], 

[DELBl . 

[OELM] , 

[URDB]  . 

(GENPAl  , 

334 

1 

[DHNHSH]  , 

EBLAS], 

[SLPHOD] . 

[QRRJ, 

[UBLASTI]  , 

335 

1 

[UBLASTG], 

[UBLASTFl  ? 

336 

1 

$ 

337 

1 

$•***••** 

*$! 

338 

1 

$ 

$J 

339 

1 

$ 

BEGIN  MAPOL  SOLUTION  SEQUENCE 

$! 

340 

1 

$ 

$! 

341 

1 

$ . . 

*$! 

342 

1 

S  PREFACE  MODULES 

$! 

343 

1 

*$! 

344 

1 

SINGOSET 

1; 

345 

1 

SINSASBT 

2; 

346 

1 

SINGLSBT 

3; 

347 

1 

$ 

$! 

348 

1 

QP  "QUADPAN*; 
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349 

350 

351 

352 

353 

354 

355 
35fi 

357 

358 

359 

350 

351 

352 

363 

364 
355 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 


liUSS  "USSABRO”; 

IIPUIABRO  :>  FALSB; 

1!$ 

1!$  INITIALIZE  SUBSCRIPT  VALUES  TO  "I"  TO  AVOID  RUN  TIME  PROBLEMS 
1!$ 

1!SUB  :»  1; 

I'SUBF  :«  1; 

1 ! PRINT ( *LOG- ( ' BEGIN  PREFACE  MODULES  * ) * )  ; 

I’CALL  SOLUTION  (  NUMOPTBC,  NBNDCOND,  K6R0T,  MPS,  MPE,  OCS.  OCB,  PSDS,  FSDB, 

1!  MAXITER,  MOVLIH,  WINDOW,  OCMOVLIM,  ALPHA,  CNVRGLIM. 

1!  NRFAC,  EPS,  PDSTBP,  TOLVALUE  )  ; 

1!CALL  IFP  (  GSIZEB,  EIDTXPE  ); 

1!$ 

PROCESS  THE  FUNCTIONAL  PACKET  AND  INSTANTIATE  THE  FUNCTIONS 

1!$ 

IICALL  FPKBVL  (  BIDTTPE  ); 

1!CALL  UTRPRG  (  BIDTYPB  ); 

1!$ 

119  GENERATE  THE  ELEMENT  MATRICES 

1!$ 

1»PRINT<  "LOG- ('ELEMENT  MATRIX  GENERATION' )")  ; 

1!$ 

liCALL  MAKBST  (  NDV,  GLBDBS,  (PTRANSJ ,  [PMINTJ ,  IPMAXT]  ,  LOCLVAR, 

1!  TPIXBD,  DESLINK  ); 

1!$ 

1‘CALL  BMG  (  NDV,  GSIZEB,  K6ROT,  GLBDBS,  LOCLVAR,  [PTRANSl  ,  DBSLIHK,  ISMATJ , 

1!  SMATCOL,  DVCT,  DVSIZE,  KBLM,  MBIM.  TBLM,  TRBF  ); 

1!$ 

1!IF  NUMOPTBC  »  0 

2!  CALL  NLBMG  {  1,  NDV.  GSIZEB,  GLBDBS,  LOCLVAR,  (PTRANS]  ,  DESLINK, 

2!  [NI,SNAT}  ,  NLSMTCOL,  DVCTD,  DDVCT,  DVSIZBD,  DDVSIZE,  KEUO,  DKELM, 

2!  MBLMD,  DMELM,  TELMD,  DTBLM,  TREFD,  FDSTEP  ); 

119 

liCALL  PPBULK  (  GSIZEB,  B05UMMRY,  EODISC.  GPFBLEM  ) ; 

1!$ 

li9  ASSEMBLE  THE  ELEMENT  MATRICES 

1!$  TO  THE  SENSITIVITY’  MATRICES 

119 

l!PRINT("LOG«< 'PHASE  1  ELBM.  MATRIX  ASSEMBLY' )  •)  ; 

IICALL  BMAl  {  NDV,  CSTM,  GBNEL,  DVCT,  KSIM,  HBIM,  GMKCTO,  DKVIO. 

1!  GMMCTO,  DMVIO,  DW6H1  ); 

IICALL  UTUPRG  (  KEXK,  HELM  )  ; 

IIIF  NUMOPTBC  -  0 

2!  CALL  NLEMAl  (  1,  NDV,  GLBDBS,  DVCTD,  DDVCT,  KELHD,  DKEZM,  MBLMD,  DMELM, 

2J  OOCCTO,  DKVIO,  GM1CT0,  DMVIO,  DW6H1,  GMKCT,  DKVI,  GWCT,  DMVI, 

21  a«CTG,  DKVIG.  GMMCT6,  EMVIG,  GMHCTD,  DMVID,  DGM4CT,  DOHVI, 

2!  DDHUGBI  }; 

1!$ 

11$  GENERATE  THE  SIMPLE  LOAD  VECTORS 

11$  AND  LOAD  SENSITIVITIES 

1!$ 


PRINT(''LOG>(' PHASE  1  STATIC  LOADS  GENBR.*)*); 

CALL  1XSD6BN  (  GSIZEB,  GLBDES,  DVCT,  DVSIZE,  GM4CT0,  DMVIO,  TBLM,  TREE, 

SMPLOD,  [DPTHVI],  [DPGRVI}  )  ,- 
CALL  UTRPRG  (  DVCT  )  ; 

IP  NUMOPTBC  -  0 

CALL  NLLODGEN  (  GSIZEB,  GLBDBS,  DVCTD.  DDVCT,  DVSIZBD,  DDVSIZE,  GMHCTD, 

DG»fCT,  DMVID,  DEMVI,  TELMD,  DTBLM,  TREFD.  (DPTHVD]  ,  (DDPTHV]  , 
(DPGRVD] ,  [DDPGRV]  ) ; 

$ 

$  GENERATE  THE  STEADY  AERODYNAMIC  MODELS 

$  BASED  ON  THE  SABRO  DISCIPLINBS/ IMPORT  AND  OVERIAY  OPERATIONS 


IILOOP  TRUE; 

IISAROONLY  FALSE; 
IIMINDEX  :>  0; 
IIHHILB  LOOP  DO 


2! 

HINDBX  :«  MINDEX  *  1; 

2! 

CALL  AROGNDRV 

MINDEX,  CASE,  LOOP,  GQAERO,  CASBID.  METHOD,  MODEL,  MACH, 

2! 

SYM.  AICSYM,  SAMODEL,  STDYGBOM.  RIGEIALOD,  AICMAT, 

2! 

ABROGRID.  CABROBQX,  SACOMPS,  SAGBON, 

2! 

(AICl,  (AAIC),  (ASAIC], 

2! 

RI6DSL0D,  NEWMODBL,  SAROONLY  ); 

2! 

CALL  SFORLO  (  , 

GSIZEB,  GLBDBS.  SMPLOD,  [DPTHVI] 

[DPTHVD]  .  (DPGRVI]  , 

2! 

[DPGRVD],  RI6DSL0D.  [SLPFRC]  ); 

2! 

IP  GOABRO  THEN 

3! 

IF  METHOD  « 

QP  THEN 

4! 

PRINT  (  "LOG-  (  '  QUADPAN  AERODYNAMICS  * )  ”  )  ; 

4! 

CALL  QUADPAN  (  MODEL.  CASBID.  CASE,  AICSYM, 

ABROGRID, 

4! 

CABROBOX,  SACOMPS,  SAGBOM,  RBFPARAM,  [AIC] ,  [AAIC] . 

4! 

[ASAIC],  [AIRFRC],  RIGDALOD 

FULABRO  ); 

4! 

ELSE 

4! 

IP  METHOD 

>  USS  THEN 

5! 

PRINT  ( 

"LOG-  ( '  USSAERO  AERODYNAMICS  '}'•); 

5! 

CALL  USSABRO  (  MINDEX,  MODEL,  CASBID,  MACH,  SYM.  AICSYM, 

5! 

SACOMPS,  SAGBOM,  RBFPARAM 

5! 

[AIC],  [AAIC],  [AIRFRC],  RIGDALOD, 

5! 

ABROGRID.  CABROBOX  ); 

$ 

$ 

$ 


! 


$ 

$ 

$ 


$! 

$! 

$! 

I 

91 


9 


9 


9 

9 

9 

9 

9 


9 

$ 

9 

9 


9 

9 

9 

9 


l 


! 
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439 

440 

441 

442 

443 

444 

445 

446 

447 
446 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 
466 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 


ELSE 

PRINTS  {•  USER  FATAL  ERROR:  UNRBCOGKIZED  SAERO  METHOD  M5A4)-, 
METHOD) ; 

CALL  EXIT; 

BNDIP; 

ENDIF; 

CALL  LODSAGRP  {  SAMODBL,  NEWMODEL,  METHOD,  MACH,  SYM,  STDYGEOM,  RIGDALOD, 
AICMAT,  ABROGRID,  CAEROBOX,  SACOMPS,  SAGEOH, 

[AICl  ,  [AAICl  ,  [ASAICl  ,  RIGDSLOD,  FULABRO  )  ; 

EKDIF; 

SNDDO; 

CALL  GRPARCHV; 

$ 

$  GENERATE  THE  SAEMODEL  GROUP  AND  SPLINE  GROUP 

$ 

LOOP  TRUE; 

MINDEX  :«  0; 

HHILB  LOOP^  DO 

MINDEX  :«  MINDEX  1; 

CALL  SPLNOtDR  (  MINDEX,  CASE,  LOOP.  MODEL,  SAEMODEL,  SAMODBL, 

SAGBOM,  SACOMPS,  SPLINE,  [GTKG] ,  IGSTKG]  .  [GPTKG] , 

FLSXLOAD,  NEWMODEL,  GOSPLINB, 

{KREALK}  .  IKIMAGK)  ,  [KIMAGS]  ,  {KIMAGPl  }  ; 

IP  GOSPLINB 

CALL  SPLINES  (  MODEL,  GSIZEB,  SAGEOM,  SACOMPS,  AEROS,  [GTKG],  [GSTKG]  , 
[GPTKGl  ,  [KREALK]  ,  [KIMAGK]  ,  [KIMAGS]  ,  [KIMAGPl  )  ; 

CALL  LODSPGRP  (  NEWMODEL,  GOSPLINB.  MODEL,  SAEMODEL,  SPLINE, 

FLBXLOAD,  [GTKG]  ,  [GSTKG]  .  [GPTKG]  )  ; 

ENDDO; 

CALL  TRIMUPD  (  TRIMDATA  )  ; 

CALL  GRPARCHV; 

S . - .  ^  * 

$  ' 

IF  SAROONLY  CALL  EXIT; 

$  ' 

$  PERFORM  TRIM  PREFACE  OPERATIONS  i 

$  * 

CALL  PRETRM  (  TRIMDATA,  TRIMRSLT  )  ; 

$  ' 

$  GENERATE  THE  UNSTEADY  AIC  MATRIX  AND  THE  i 

S  UNSTEADY  SPLINE  TRANSFORMATION  MATRIX  i 

$  i 

PRINT  ( "LOG-  <  ’  UNSTEADY  AERODYNAMICS  •  )  •  )  ; 

CALL  UNSTEADY  (  GBOMUA,  AECOMPU,  [AJJTL]  ,  [DIJK]  .  [D2JK]  ,  [SKJ]  , 

AERU6B0M,  CAROOGEO  ) ; 

CALL  AMP  {  [AJJTL]  ,  [DIJK]  ,  ID2JKJ ,  [SKJ]  .  [QKKL]  .  [QKJL] .  [QJJL]  )  ; 

CALL  SPLINEU  (  GSIZEB,  GBOMUA,  AECOMPU,  AERO.  [OGTKG]  )  ; 

$ 

. . . 

$  BEGIN  OPTIMIZATION  LOOP 


NUMOPTBC  >  0  THEN 

PRINT(»LOG- ( • **♦*******•***********< 

PRINT("LOG-  ( 'BEGIN  OPTIMIZATION* )  ■ )  ; 


INITIALIZE  MAPOL  PARAMETERS 

GLBCNVRG  FALSE; 

APPCNVRG  :«  FALSE; 

BEGIN  CONVERGENCE  LOOP 

HHILB  NOT  GLBCNVRG  AMD  NITER  <>  MAXITER  DO 
ASSEMBLE  THE  GLOBAL  MATRICES 
NITER  ;>  NITER  +1; 

PRINTCLOG-C . ')■>  ; 

PRINT  [  "LOG- ('  DESIGN  ITERATION  13)  -  .NITER)  ; 

CALL  APFLUSH; 

FLUSH  LARGE  ENTITIES  TO  REDUCE  GROWTH  IN  DATABASE 
CALL  UTRPR6  {  CONST  }  ; 

CALL  UTRPR6  (  GPPELEM,  EOBAR,  BOELAS,  EOHEXl,  BOHEX2,  EOHEX3,  EOQDMMl  ); 
CALL  UTRPRG  (  E0QUAD4,  EOROD,  BOSHBAR,  EOTRMEM,  GPFDATA,  EOTRIA3  ) ; 

CALL  UTRPRG  (  OPNLBUCK,  OEULBUCK.  PDLIST  }  ; 

CALL  UTRPRG  (  STABCFA  )  ; 

CALL  UTMPR6  (  [GLBSIG]  ,  [NLGLBSIG]  )  ; 

CALL  UTMPRG  (  [GLBSIGI]  .  [NLGBSI6I]  )  ; 

NEWITBR  :«  TRUE; 

CALL  ITERINIT  (  NITER,  CONST,  LAMBDA  ); 

CALL  DVMOVLIM  (  NITER,  NDV,  GLBDES,  MOVLIM  ); 

GPRINT  :«  FALSE; 

6PUNCH  :>  FALSE; 

LQADLDV  FALSE; 

LPRINT  FALSE; 

CALL  GDVPRINT  (  NITER,  NDV,  GLBDES .  MOVLIM,  .  GPRINT  }  ; 
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S29 

3* 

CALL  GDVPtmCK 

(  NITER,  NDV,  GLBDBS,  GPUNCH  ); 

530 

3! 

CALL  LDVLOAD 

(  GLBDBS,  LOCLVAR,  (PTRANS],  OLOCALDV,  NITER,  NDV,  , 

531 

3! 

LQADLDV  ) ; 

532 

3! 

CALL  LDVFRINT 

(  OLOCALDV,  NITER,  ,  LPRINT  )  .* 

533 

3! 

CALL  6DVRESP 

(  NITER,  NDV,  GLBDBS  )  ; 

534 

3! 

CALL  HSH6RSSP 

(  NITER,  NDV,  GLBDES,  DESLINK  ); 

535 

3! 

CALL  TCBVAL  { 

NITER,  NDV,  MOVLIM,  WINDOW,  GLBDBS,  LOCLVAR,  [PMINT]  , 

536 

3! 

[PNAXT]  .  (FTRANSI ,  TFIXED,  CONST  )  ; 

537 

3! 

CALL  BCSVAL  ( 

NITER,  NDV,  GLBDES.  LOCLVAR,  (PTRANS],  CONST  ); 

538 

3! 

CALL  LAHXNCON 

(  NITER,  NDV.  DCONLAM,  DCONU4N,  DCONPMN,  TFIXED,  GLBDES. 

539 

3! 

LOCLVAR,  [PTRANS] ,  CONST  )  ; 

540 

3!$ 

$! 

541 

3! 

QALL  NLOC  (  NITER,  NDV,  GSIZEB,  GLBDBS,  LOCLVAR.  [PTRANS]  ,  DBSLINK, 

542 

3! 

[NLSMAT]  ,  NLSMTCOL,  DVCTD,  DDVCT,  DVSIZED,  DDVSIZE,  KELKD, 

543 

3! 

DKBLM,  MBLMD,  OMBLM,  TBLMD.  DTELH,  TRBFD,  FDSTBP  )  ; 

544 

3!$ 

$! 

545 

3! 

CALL  NLBMAl  ( 

NITER,  NDV,  GLBDES,  DVCTD,  DDVCT,  KBIMD,  DKBLM, 

546 

3! 

,  MBIKD 

DHBLM,  GMKCTO,  DKVIO,  Q4MCT0,  DMVIO,  DH6H1,  GMKCT.  DKVI, 

547 

3! 

GMKZT 

DMVI,  GHKCT6,  DKVIG,  GMMCTG,  DMVIG,  GMMCID,  DMVID. 

548 

3! 

OGNfCT,  DOKVI,  DDII6H2  ); 

549 

3!$ 

$! 

550 

3! 

CALL  NLLODGEN 

(  GSIZEB,  GLBDBS,  DVCTD,  DDVCT,  DVSIZED.  DDVSIZE, 

551 

3! 

G»MCn),  DGMMCT,  DMVID,  DDMVI.  TBLMD,  DTELM,  TRBFD, 

552 

3! 

(DFTBVDl,  [DDPTHV],  [DP6RVD] ,  [DDPGRV]  }  ; 

553 

3!$ 

$! 

554 

3! 

CALL  EMA2  (  NITER,  NDV,  GSIZBB,  GLBDBS,  GMRCTG,  DKVI6,  [KIGG]  , 

555 

3! 

GmCIG,  DMVIG,  [MIGG]  ); 

556 

3!$ 

557 

3*$ 

BEGIN  BOUNDARY  CONDITION  LOOP  FOR  OPTIMIZATION 

$! 

558 

3!$ 

$! 

559 

3! 

FOR  BC  -  1  TO  NtJMOPTBC  DO 

560 

4! 

CALL  BCIDVAL  (  BC,  CASE,  BCID  ) ; 

561 

4! 

PRINT  CLOG 

-  ( ’  BOtniDARY  CONDITION  ’  ,  18)  *  .BCID)  ; 

562 

4!$ 

563 

4!$ 

ESTABLISH 

THE  BASE  USHT  AND  PARTITIONING  DATA  FOR  THE  BC 

$! 

564 

4!$ 

THIS  DATA  MUST  BE  RECREATED  BACH  ITERATION  SINCE  GDR  CAN  CHANGE  IT 

$! 

565 

4!$ 

$! 

566 

4! 

CALL  MKOSBT(  BCID,  GSIZBB,  (YS(BC)],  CTMN{BC)1,  [PGMN(BC)1,  tPNSF(BC)I,! 

567 

4! 

(PFQA(BC)},  [PARL(BC)]  ,  USBT(BC)  )  ; 

568 

4!$ 

$! 

569 

4!$ 

MAKE  B.C.- 

DEPENDENT  BGPDT  FROM  BASE,  ADDING  THE  EXTRA  POINTS  FOR 

$! 

570 

4!$ 

THIS  B.C. 

$! 

571 

4!$ 

$! 

572 

4! 

CALL  BCBGFDTC  BCID  ,  GSIZBB  .  BGPDTCBC)  ,  BSIZB(BC}  )  ; 

573 

4! 

GSIZB 

GSIZBB; 

574 

4! 

PSIZB(BC) 

BSIZB(BC)  ^  GSIZB; 

575 

4!$ 

$! 

576 

4! 

IF  NITER  < 

2  CALL  AROSYMCK  (CASE,  BGPDT  (BC),  USBT(BC) .  RELBS,  BC. 

577 

5! 

TDLVALDB,  STRSYM  ); 

578 

4!$ 

$! 

579 

4!$ 

PROCESS  MATRICES,  TRANSFER  FONCITONS,  AND  INITIAL  CONDITIONS  FOR 

$! 

580 

4!$ 

THIS  B.C. 

$! 

581 

41$ 

$! 

582 

4! 

CALL  BCBULKC  BCID  .  PSIZB(BC)  ,  BGPDT(BC)  ,  USBT(BC)  ) ; 

583 

4!$ 

$! 

584 

4! 

CALL  BOOND 

(  BCID.  GSZZE.  ESIZE(BC),  USBT(BC)  ,  BLOAD,  BMASS,  DHQDBS, 

585 

4! 

BMQDBS,  BSABRO,  BFLUTR,  BDYN,  BDRSP.  BDTR,  BMTR,  BDFR, 

586 

4! 

BMFR,  BGOST,  BBLAST.  NMPC.  NSPC,  NOMIT,  NRSBT,  NGDR  ); 

587 

4!$ 

$! 

588 

4!$ 

DETERMINE 

IF  ANY  M2GG/K2GG  INPUT  DATA  ARE  TO  BE  ADDED 

$! 

589 

4!$ 

$! 

590 

4! 

CALL  NOLXMAT  <  [KGG)  ,  [MGG)  )  ; 

591 

4! 

CALL  MIQGG 

(  BCID,  GSIZBB,  [H2GG],  M2GGFLA6,  {K2GG] ,  K2GGFLAG  ); 

592 

4! 

IF  M206FLAG  THEN 

593 

5! 

(MQGI  z 

«  [HIGG]  >  (H2G61; 

594 

5* 

ELSE 

! 

595 

5! 

IMQG)  : 

-  [HlOGl; 

! 

596 

5! 

BNDIF; 

597 

4! 

IP  K2G6FLAG  THEN 

598 

5! 

[X06]  : 

«  [K1G6]  1.  [K2GG); 

599 

5! 

ELSE 

600 

5! 

[K06]  : 

-  [KIGG]  ; 

601 

5! 

BNDZP; 

602 

4!$ 

$! 

603 

4!$ 

CALL  THE  GRID  POINT  WEIGHT  GENERATOR  FOR  THIS  BOUNDARY  CONDITON 

$! 

604 

4!$ 

$! 

605 

4! 

CALL  GPNG 

(  NITER,  BCID,  GPWGGRID,  [MGG]  ,  OGPWG  ) ; 

606 

4!$ 

$! 

607 

4! 

IF  BLOAD  <>  0  CALL  GTLQAD  (NITER,  BCID,  GSIZB,  BGPDT(BC} ,  GLBDBS, 

608 

5! 

SMPLOD,  (DPTHVI)  ,  [DPTHVD] , 

609 

5! 

[DPGRVI] ,  [DPGRVD] ,  [P6] ,  OGRIDLOD) ; 

610 

4!$ 

$1 

611 

4!$ 

PARTmON-RBDUCnON  OF  GLOBAL  MATRICES 

$! 

612 

4!$ 

$! 

613 

4! 

IP  NUNOPTBC  >  1  CALL  NDLLMAT  {  (XNN]  ,  (PN]  ,  (HNN] , 

614 

5! 

[GTKNJ  ,  [GSTKN] ,  [GPTKN] ,  [UGTKNl  )  ; 

615 

4! 

IF  NMPC  <> 

0  THEN 

616 

5!$ 

$1 

617 

5!$ 

PERFORM  HPC  REDUCTION 

$! 

618 

S!$ 

$! 

10 


619 

5! 

PRINT  (•  LOG- { 

•  MPC  REDUCTION* ) • ) ; 

620 

5! 

CALL  GREDUCE  (  [KGG]  ,  [PG]  ,  [PGMN(BC)  ]  ,  [TWN(BC)  ]  ,  [KNNl  ,  IPMI  )  ; 

621 

5! 

IF  BMASS  <> 

0  CALL  GREDUCE  (  [MGGi  ,  .  [PGMNIBO  ]  ,  ITMNIBC)  ]  ,  IMNN] 

);! 

622 

St 

IF  BSAERO  <>  0  TREK 

623 

6! 

CALL  SPLINFND  (  BCID,  CASE,  MODEL,  SPLINE,  IGTKGl ,  IGSTKG] , 

624 

6! 

IGPTKG]  ) ; 

! 

625 

6! 

CALL  GREDUCE  (,  tGTKG]  ,  [PGMN(BC)].  [TMN(BC)  1  .  ,  IGTKN]  )  ; 

626 

6! 

CALL  GREDUCE  {,  tGSTKG]  ,  [PQW(BC)1,  tTMN(BC)3,  ,  [GSTKNl  )  ; 

627 

6! 

CALL  GREDUCE  (,  [GPTKG]  ,  IPGMN<BC)1,  [TMM(BC)1.  .  [GPTKNJ  )  ; 

628 

6! 

ENDIF; 

629 

5! 

IF  BPLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  «  0 

630 

6! 

CALL  GREDUCE  (,  tUGTKGI  ,  tPGMM(BC)l,  ITMN(BC)  1  ,  .  lOGTENl  ); 

631 

S! 

ELSE 

632 

5!$ 

$! 

633 

5!$ 

NO  MPC  REDUCTION 

$! 

634 

5!$ 

635 

S! 

[KNN]  :«  [KG61; 

636 

5! 

,  IF  BLOAD  <> 

0  tPN]  IPG]; 

637 

5! 

IP  BMASS  <> 

0  IMNN]  IMGGI; 

638 

5! 

IP  BSAERO  <>  0  THEN 

639 

6! 

tGTKNl 

>  IGTKG] ; 

640 

6! 

[GSTKNJ 

»  IGSTKG] ; 

641 

6! 

tGPTKN] 

-  [GPTKG]  ; 

642 

6! 

ENDIF; 

643 

5! 

IP  BPLUTR  <j 

0  OR  BGUST  <>  0  OR  BBLAST  <>  0  lUGTKN]  lOGTKGj  ; 

644 

5! 

SNDIP; 

645 

4!$ 

$! 

646 

4!$ 

PERFORM  AUTOSPC  CALCULATIONS  ON  THE  KNN  MATRIX 

$! 

647 

4!$ 

$! 

64  B 

4! 

PRINT  ( -LOG- {» 

AUTOSPC  COMPUTATIONS')-); 

649 

4  ! 

CALL  GPSP  (  NITER,  BCID,  NGDR,  IKNNJ ,  BGPDT{BC) .  [YS(BC)J, 

650 

4! 

USBT(BC).  GPST(BC)  ); 

651 

4! 

CALL  MKPVECT  ( 

USBTtBC),  (PGMNIBO],  IPHSP(BC)], 

652 

4! 

IPPOA(BC)],  IPARLIBC)]  }; 

653 

4! 

CALL  BOUNDUPD 

BCID,  GSIZE,  ESIZBIBC),  USBT(BC) ,  NSPC,  NOMIT,  NRSBT 

)  ;! 

654 

4!$ 

$! 

655 

4!$ 

FOR  SENSITIVITY  ANALYSIS,  SAVE  A  COPY  OP  THE  PRB-GDR  PART.  VECTS. 

$! 

656 

4!$ 

$! 

657 

4! 

CALL  MKPVECT  ( 

USBT(BC),  (PGMNS(BC)l,  IPNSPSIBC)]. 

658 

4! 

[PPOAS (BC) ] .  (PARLS (BC) ]  ) ; 

659 

4!$ 

S! 

660 

4! 

IP  NUMOPTBC  > 

CALL  NULLMAT  (  IKFF]  ,  (PPl  .  IMFP]  ,  IGTKP]  ,  IGSTKP]  , 

! 

661 

5! 

IGPTKP]  .  [UGTKFJ  ,  IKFFX]  ,  IPPX]  . 

! 

662 

5! 

[MFPX]  ); 

! 

663 

4! 

IP  NSPC  <>  0  THEN 

664 

5!$ 

$! 

665 

S!$ 

PERFORM  SPC  REDUCTION 

$! 

666 

s»s 

S! 

667 

5! 

PRINT (-LOG- 

•  SPC  REDUCTION* )  -)  ; 

668 

5! 

CALL  NREDUCE  (  [KNN],  (PNI ,  [PMSF(BC)1.  (YS (BC) 1 .  tKPP] ,  [KPS], 

669 

5! 

IKSS],  [PP],  [PS]  ); 

670 

5! 

IF  BMASS  <> 

0  CALL  NREDUCE  I  IMNN),  ,  [PNSP(BC)  ]  ,  ,  IMPF]  ); 

671 

5! 

IP  BSAERO  <>  0  THEN 

672 

6! 

CALL  NREDUCE  (  ,  IGTKN],  [PNSP(BC)],  ,  ,  .  .  IGTKPI  ); 

673 

6! 

CALL  NREDUCE  (  ,  [GSTXN]  .  (PNSP(BC)]«  ,  ,  ,  ,  I6STKF]  ); 

674 

6! 

CALL  NREDUCE  (  ,  [GPTKN] ,  IPNSP(BC)],  ,  ,  ,  ,  IGPTKP]  ); 

675 

6! 

ENDIF; 

676 

5! 

IF  BPLUTR  <>  0  OR  BOOST  <>  0  OR  BBLAST  <>  0 

677 

6! 

CALL  NREDUCE  (,  lOGTKN] .  (PNSP(BC) [UGTKP] } ; 

678 

51 

ELSE 

679 

5!$ 

$! 

680 

5!$ 

NO  SPC  REDUCTION 

$ 

681 

5!$ 

$ 

682 

5! 

IKFFJ  :-  IKNNJ; 

683 

5! 

IF  BLOAD  <> 

0  IPFl  IPN]; 

684 

5! 

IP  BMASS  <> 

0  IHFF]  :-  IMNN]; 

685 

5! 

IP  BSAERO  <>  0  THEN 

686 

6! 

IGTKP] 

-  IGTKN]; 

687 

6! 

IGSTKPI 

-  [GSTKN]  ; 

688 

6! 

IGPTKP] 

-  IGPTKN]  ; 

689 

6! 

ENDIF; 

690 

S! 

IP  BPLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  HIGTKFl  tOGTKN]  ; 

691 

5! 

ENDIF; 

692 

4!$ 

$ 

693 

4!$ 

ADD  IN  THE  NEN  MODULE  TO  GENERATE  THE  H  MATRIX  FOR  SYM>TRAN 

$ 

694 

4!$ 

$ 

695 

4! 

CALL  SAERODRV 

(BCID,  1.  LOOP,  MINDEX,  SYM,  MACH,  QDP, 

696 

4! 

TRIMDATA,  TRIMRSLT,  METHOD  )  ; 

697 

4! 

SYMTRNIBC)  :«  FALSE; 

698 

4! 

ACSMTRIBC)  FALSE; 

699 

4! 

IP  KEIHOD-USS  THEN 

700 

5! 

IP  STRSYM  THEN 

701 

6! 

IP  SYM-0 

THEN 

702 

7! 

SYMTRNIBC)  :«  TRUE; 

703 

7! 

ENDIF; 

704 

6! 

ENDIF; 

705 

5! 

ELSE 

706 

5! 

IP  METHOD-QP  THEN 

707 

6! 

IP  STRSYM  THEN 

! 

708 

7! 

IP  SYM-0  OR  SYM—1  THEN 

t 

11 


709 

8! 

710 

8! 

711 

8! 

712 

7! 

713 

6! 

714 

5! 

715 

4! 

716 

5! 

717 

5! 

718 

5! 

719 

5! 

720 

S! 

721 

S! 

722 

5! 

723 

5! 

724 

6! 

725 

6! 

726 

6> 

727 

5! 

728 

5! 

729 

5! 

730 

5! 

731 

6! 

732 

6! 

733 

6! 

734 

6! 

735 

5! 

736 

6! 

737 

6! 

738 

6! 

739 

6! 

740 

6! 

741 

7! 

742 

7! 

743 

7! 

744 

7! 

745 

7! 

746 

7! 

747 

7! 

748 

7! 

749 

7! 

750 

7! 

751 

7! 

752 

7! 

753 

7! 

754 

7! 

755 

6! 

756 

5! 

757 

5! 

758 

5! 

759 

5! 

760 

5! 

761 

5! 

762 

5! 

763 

5! 

764 

5! 

765 

S! 

766 

5! 

767 

41$ 

768 

4! 

769 

5! 

770 

4!$ 

771 

4! 

772 

51$ 

773 

51$ 

774 

S!$ 

775 

51$ 

776 

S!$ 

777 

5! 

778 

51$ 

779 

51$ 

780 

S!$ 

781 

5! 

782 

5! 

783 

5! 

784 

5! 

785 

5! 

786 

5! 

787 

51$ 

788 

51$ 

789 

51$ 

790 

51$ 

791 

5!$ 

792 

5! 

793 

6! 

794 

6! 

795 

6! 

796 

6! 

797 

5! 

798 

5! 

SimTltN(BC)  i>  TROS; 

ACSMTR(BC)  :•  TRUE; 

BNDIF; 

SNDIF; 

ENDIF; 

ENDIF; 

IF  SVMTRN(BC)  THBH 

CALL  RBMGEN  <  BGPDTCBC) ,  20,  (RGBOMGJ  ); 

CALL  AROBGEN  (CASE,  BGFDT(BC) .  USETCBC) ,  RELES,  BC,  TOLVAHIE, 
IHFRBALT(BC)  J  ,  tHFIMAGT(BC)  J  .  USBTX(BC)  ); 

CALL  MKPVBCT  (  USBTX(BC) ,  [PGMNX(BC)  3  ,  [PNSFX(BC)  ]  , 

[PFOAX (BC) 3 ,  CPARLX (BC) ]  ) ; 

CALL  TRNSPOSE  (  [HFRBALT(BC)  3  ,  IHFRKAL(BC)3  )  ,- 
CALL  TRNSPOSB  {  [HFIMACT(BC)  1 ,  tHPIMAG(BC)l  ); 

IP  ACSMTR(BC)  THEN 

CALL  TRNSPOSE  (  {KREALR]  .  [KRBALT]  )  ; 

CALL  TRNSPOSE  (  [KIMA6K]  .  (KIMAOT)  )  ; 

,  BNDIF; 

IHTKPHR3  {HFRBALT(BC) )  *  I  IKPP3  *  (HFRBAL(BC)3  3  ; 

IHTKPHI]  [HPIHAGT(BC)3  *  (  (KFP)  *  CHFIMAG(BC)3  ]  ; 

[KPPXI  (HTKFHRl  tHTKFHI)  ; 

IF  BMASS  <>  0  THEN 

IHTMFHRl  (HPREALT(BC)  3  *  [  (MPP)  *  IHPREAL(BC)3  3; 
[HlMFHIl  :»  tHFIMAGT(BC)  3  *  [  IMPF)  *  rHPIMAG(BC)3  3; 

(MPPXJ  [HIMFHR]  +  ffflMFHIl  ; 

ENDIF; 

IF  BSAERO  -  0  THEN 

IHPRTPF)  :>  {HFRBALT(BC)3  *  [PP]  ; 

(HFITPF]  {HPIMAGT(BC)3  ♦  [PF]  ; 
rPFX)  :•  (HPRTPF3  ♦  {HFITPP3  ; 

ELSE 

IP  ACSWrR(BC)  THEN 

tHR(STKPl  [HFRBALT(BC)  3  *  t  [GTKF3  *  (KRBALK3  J; 

[HIGTKPl  [HFIMAGT{BC)3  *  (  [GTICP3  •  [KIMAGK)  3; 

IHRGSTKP3  :•  (HPRBALT(BC)  ]  *  [  tGSTKFl  *  {KRBALK3  3; 

[HIGSTKFl  {HFIHAGT(BC)  3  ♦  t  [GSTKP]  *  (KIMAGS)  ]; 

(HRGPTKF)  [HPRBALT(BC)  3  *  (  [GPTICFl  *  tICRBALK3  3; 

IHIGPTKPJ  (HFIMAGT(BC)3  *  [  (6PTKP3  *  (KIMAGP3  3; 

ELSE 

CHHGTICPl  :•  IHPRRALT(BC)  3  ♦  tGTKP)  ; 

CHIGTKFl  :«  {HFIMAGr(BC)  3  *  [GTKPl  ; 

IHRGSTKP3  :»  (HPRHALT(BC)  3  *  tGSTKF]  ; 

[HIGSTKF)  :«  tHFIMAGrr(BC)  3  *  tGSTKF)  ; 
tHRGPTKF]  :«  tHPRKALT(BC)  3  *  [GPTKP)  ; 

[HIGPTKFl  IHFIHAGT(BC)  ]  *  tGPTKPJ  ; 

BNDIF; 

BNDIF; 

ELSE 

(KPPXI  [KPF3; 

IMPFXI  r«  IHPP3; 

[PPX3  tPP); 

(GPTKPX3  :»  (GPTKP); 

USBTX(BC)  USBT(BC) ; 

[PGMNX(BC)3  :»  [PGMN(BC) ] ; 

(PNSFX(BC))  :•  (PNSP(BC)]; 
tPFOAX(BC)l  (PF0A(BC)3; 

(PARLX(BC)3  [PARL(BC)]; 

BNDIF; 

IP  HDMOPTBC  >  1  CALL  NOLLMAT  {  (KAA3  .  (PA) ,  (MAA]  , 

[KAAA3.  (PAA),  [UGTXA3  ); 

IF  NGDR  <>  0  THEN 

PERFORM  THE  GENERAL  DYNAMIC  RKDOCTIOH  WHICH  IS  DISCIPLINE 
INDEPENDENT.  THE  RESULTING  (GSUBO)  MATRIX  WILL  BE  USED  BY 
ALL  DISCIPLINES 

PRINT(  -LOG-  ( •  DYNAMIC  RBDUCmON’ )  • )  ; 

OBTAIN  THE  OMITTED  DOF  PARTITION  OF  KFP  AND  MFF 

CALL  PARTN  {  (KPFX) ,  (KOOl .  ,  (KOA)  ,  ,  (PFOAX  (BC)  3  ); 

CALL  PARTO  (  (MPFX3,  (MOO),  ,  ,  ,  (PPOAX(BC))  ); 

ASIZB  GSIZB  -  NMPC  -  NSPC  -  NOMIT; 

LSIZB  ;«  ASIZB  -  NRSET; 

CALL  (a>Rl  (  (K003 ,  (MOOl ,  (KSOO)  ,  (GGO)  ,  LKSBT,  LJSBT,  NBIV, 
PMAX,  BCID,  BGPOT(BC)  ,  USBTX(BC)  ,  NOMIT,  LSIZB  ); 

LKSBT  MEANING 

<>  0  APPROX.  MODE  SHAPES  SELECTED 

-  0  MO  APPROX.  NODE  SHAPES  IN  GDR 

IP  LKSBT  <>  0  THEN 

CALL  SDCOMP  (  (KSOO),  (LSOO)  ,  DSBTX(BC),  SINGOSET  ); 

CALL  GDR2  (  (LSOO)  ,  (MOO)  ,  (PHIOK) ,  LKSBT,  LJSBT, 

NBIV,  FMAX,  BCID  }; 

BNDIF; 

CALL  GJDR3  {  (KOO) ,  (KOA),  (MGG) ,  (PHIOK),  (*1MN(BC)),  (GGO), 

(PGMKX(BC)3,  (PNSPX(BC)3,  (PFOAX (BC) 3,  [GSOBO(BC)l, 


12 


799 

5! 

BGPDT(BC) ,  USETX(BC) . 

800 

5! 

LKSBT,  LJSBT,  ASIZE,  GNORM,  BCID  ) ; 

801 

5! 

CALL  GDR4  (  BCID,  GSI2B,  PSIZB (BC) ,  LKSBT,  LJSBT, 

802 

5! 

tPGMHX(BC)l,  [TMN(BC)],  tPNSPX{BC)3,  (PPOAX(BC)I, 

803 

5! 

{PARLX(BC>  1  ,  IPGDRGCBC) ]  ,  [PAJK] ,  IPFJKJ ,  BGPDT(BC) , 

804 

S! 

USBTX  (BC)  ) ; 

605 

5! 

ENDIF; 

806 

4!$ 

$! 

807 

4! 

IP  BLOAD  <>  0  OR  BMODBS  <>  0  OR  BPLUTR  <>  0  OR  BDYN  <>  0  THEN 

808 

5!$ 

$! 

809 

S!$ 

REDUCE  THE  MATRICES  WITHOUT  AEROBLASTIC  CORRECTIONS 

$! 

810 

5»$ 

$! 

811 

5! 

IP  VCSDR  <>  0  THEN 

812 

6!$ 

S! 

613 

6!$ 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 

$! 

814 

6!$ 

$! 

615 

6! 

PRINT  CLOG-  ( ’  SYMMETRIC  DYNAMIC  REDUCTION ' )  " )  ; 

816 

6!$ 

$! 

817 

6! 

(MAAl  :»  TRAMS  (  {GSOBO(BC)]  )  *  [  [MFPXl  •  [GSUBO(BC)J  1; 

818 

6! 

[KAAI  :«  TRANS  (  IGSOBO<BC)]  )  *  (  (KFPX]  *  IGSUBO(BC)]  1; 

819 

6! 

IF  BLOAD  <>  0  CPA]  :>  TRANS  (  [6SUBO(BC}l  )  *  [PFX]  ; 

820 

6! 

IP  BPLUTR  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 

821 

7» 

[TOPI]  TRANS  (  (UGTKF]  )  *  {GSUBO(BC)3; 

822 

7! 

CALL  TRNSPOSB  {  ClWPlJ  .  [UGTKA]  )  ; 

823 

7! 

EMDIF; 

824 

6! 

ELSE 

825 

6! 

IP  NOMIT  <>  0  THEN 

826 

7!$ 

$! 

827 

7r$ 

PERFORM  THE  STATIC  REDUCTION 

$! 

828 

7!$ 

$! 

829 

7! 

PRINT ( « LOG- ( •  STATIC  CONDENSATION ’ ) " ) ; 

830 

7!$ 

$! 

831 

7! 

CALL  PRBDUCB  (  [KFPX] ,  CPPX] ,  [PFOAX(BC)l,  ,  [KOOINV(BC) 3  ,  , 

832 

7! 

[GSUBO(BC)3,  [KAA],  IPAJ ,  [PO] ,  USETX  (BC)  ); 

833 

7!$ 

$! 

834 

7! 

IP  BMASS  <>  0  THEN 

835 

8!$ 

$i 

836 

8!$ 

PERFORM  GUYAN  REDUCTION  OP  THE  MASS  MATRIX 

$! 

837 

8!$ 

$! 

838 

8! 

CALL  PARTN  (  [MPPX] ,  [MOO],  ,  [MOA]  ,  [MAABAR]  , 

839 

8! 

[PFOAX(BC)]  ); 

840 

8! 

[MAA]  (MAABAR]  f  TRANS  ( [MOA] )  *  (GSUBO(BC)]  * 

841 

8! 

TRANS ((GSOBO(BC)l)  *  [MOA]  ♦ 

842 

8! 

TRANS (CGSUBO(BC)l)  *  [  iMOOl  *  [GS0B0(BC>1  1; 

843 

8! 

IP  MRSBT  <>  0  (IFM(BC)3  :«  [MOO]  *  (6SUB0(BC)]  *  [MOA]; 

844 

81 

ENDIP; 

845 

7! 

IP  BPLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 

t 

846 

8> 

CALL  ROHPART  (  (UGTKF],  [UGTKO]  ,  [UGTKAB]  ,  [PFOAX(BC)]  ); 

847 

8! 

CTMPl]  TRANS  (  (UGTKO]  )  *  (GSUBOCBC)]; 

848 

8! 

CALL  TRNSPOSE  (  (TMPll ,  [TMP23  )  ; 

849 

8! 

[UGTKA]  :«  (UGTKAB]  +  [TMP21  ; 

! 

850 

8! 

ENDIP; 

851 

7! 

ELSE 

852 

7!$ 

$! 

853 

7!$ 

NO  P>SBT  REDUCTION 

$! 

854 

7!$ 

$! 

855 

7! 

[KAA]  [KFPX]; 

856 

7! 

IF  BLOAD  <>  0  (PAl  [PFX] ; 

857 

7! 

IP  BPLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  [UGTKA]  [UGTKF] 

858 

7! 

IP  BMASS  <>  0  (MAA)  [MPPX]  ; 

859 

7! 

ENDIP; 

860 

6! 

ENDIP; 

861 

5!$ 

$! 

862 

5! 

IP  NRSBT  <>  0  THEN 

863 

6!$ 

$! 

864 

6!$ 

PERFORM  THB  SUPPORT  SET  REDUCTION 

$! 

865 

6!$ 

$l 

866 

6! 

PRINTC "LOG-  ( •  SUPPORT  REDUCTION* )  - ) ; 

867 

6! 

IP  NITER  «  1  THEN 

868 

7! 

CALL  PARTN  (  [KAA],  [KRR]  ,  [KLR]  ,  ,  [KLL]  ,  [PARLX(BC)]  ); 

869 

7! 

CALL  SDCOMP  (  [KLL],  [KLLIMV(BC)  ]  ,  USBTX  (BC)  ,  SINSLSBT  }; 

870 

7! 

CALL  PBS  (  [KLLINV(BC)  ] ,  [KLR],  [D(BC)],  -1  ); 

871 

7! 

CALL  RBCHBCK  (  BCID,  USBTX  (BC),  BGPDT(BC)  ,  [D(BC)],  [KLL], 

872 

7! 

[KRR],  [KLR]  ); 

873 

7! 

ELSE 

874 

71 

IP  BLOAD  <>  0  THEN 

875 

8! 

CALL  PARTN  (  (KAA),  ,  [KLR],  ,  [KLL],  [PARLX(BC)]  ); 

876 

8! 

CALL  SDCOMP  (  [KLL],  [KLLINV  (BC) )  ,  USBTX  (BC),  SINGLSBT  ); 

877 

8! 

ENDIP; 

878 

7! 

ENDIP; 

879 

6!$ 

$! 

680 

6!$ 

CALCULATE  THE  REDUCED  MASS  MATRIX 

5! 

881 

61$ 

$! 

882 

6! 

CALL  PARTN  (  [MAA]  ,  [MRRBAR]  .  [MLR]  ,  ,  [MLL]  .  (PARLX  (BC)  )  )  ; 

883 

6! 

[IPR(BC)J  [MLL]  *  [D(BC)]  +  [MLR] ; 

884 

6! 

[MRR(BC)]  :«  [MRRBAR]  <•-  TRANS  (  [MLR]  )  "  [D(BC)]  > 

! 

885 

6! 

TRANS  (  (D(BC)l  )  *  [IPR(BC)); 

886 

6! 

[R22]  TRANS  {  [D(BC)]  }  *  [MLR]  ^  [MRRBAR]; 

887 

6i$ 

$! 

888 

6! 

IP  BLOAD  <>  0  THEN 

13 


$! 

$! 

$! 


889 

7!$ 

890 

7!$ 

891 

7!$ 

892 

7‘ 

893 

7! 

894 

7! 

895 

7! 

696 

7! 

897 

7! 

898 

7! 

899 

7! 

900 

7! 

901 

7! 

902 

7! 

903 

7! 

904 

6! 

905 

7! 

906 

7! 

907 

7! 

908 

7! 

909 

7! 

910 

7! 

911 

6! 

912 

6!$ 

913 

6!$ 

914 

6!$ 

915 

6! 

916 

7! 

917 

7! 

918 

7! 

919 

7! 

920 

6! 

921 

7! 

922 

7! 

923 

7» 

924 

7! 

925 

7! 

926 

7! 

927 

6! 

928 

5! 

929  " 

4! 

930 

5!$ 

931 

S!$ 

932 

5!$ 

933 

5! 

934 

5! 

935 

5! 

936 

6! 

937 

6! 

938 

6! 

939 

5! 

940 

5! 

941 

5! 

942 

6! 

943 

6! 

944 

6! 

945 

6! 

946 

6! 

947 

6! 

948 

6! 

949 

6! 

950 

6!$ 

951 

952 

6!$ 

953 

6! 

954 

7! 

955 

8! 

956 

8! 

957 

8! 

958 

8! 

959 

8! 

960 

8! 

961 

8! 

962 

8! 

963 

8! 

964 

8! 

965 

8! 

966 

8! 

967 

7! 

968 

7! 

969 

7! 

970 

7!$ 

971 

7!$ 

972 

7!$ 

973 

7! 

974 

7! 

975 

6!$ 

976 

6!$ 

977 

6!$ 

978 

6!$ 

PROCESS  STATICS  WITH  INERTIA  RELIEF 


PRINT  ( 

"LOG* ( '  »>DISCIPLINB :  STATICS (INERTIA  RELIEF) • ) " ) ; 

CALL  ROWPART  (  [PA],  [PRJ  ,  [PLBAR)  .  IPARLX(BC)J  ); 

(LHS(BC)]  :»  [MRR(BC)]; 

(RHS(BC)]  :«  TRANS  ((D(BC)])  *  [PLBAR]  t-  [PR]; 

CALL  INERTIA  (  [LHSCBC]]*  [RHS(BC)]»  [AR]  }; 

[AL]  ;*  ID(BC)J  *  [AR); 

CALL  ROWMERGE  (  [AA] ,  (ARK  (AL]  ,  [PARLX(BC)]  ); 

[RHS(BC)]  :•  [PLBAR]  -  [IFR(BC)]  *  [AR]  ; 

CALL  FBS  (  (KLLINVCBC)],  [RHS(BC)},  [UL]  }; 

CALL  YSMER6E  (  [UA]  .  .  [tTL]  .  IPARLX(BC)]  ); 

ENDIF; 

IF  BMODES  <>  0  THEN 

PRINT  { -IXX5-  ( •  >»DISCIPLINB :  NORMAL  MODES » )  " )  ; 

,  CALL  RBIG  {  NITER,  BCID,  USBTX(BC)  ,  [KAA] ,  [MAA] ,  [HRR(BC)], 

[0(BC)],  LAMBDA,  [PRIA]  ,  [Mil],  BSIZB(BC)  ); 

CALL  OFPNROOT  (  NITER,  BCID.  LAMBDA  )  ; 

CALL  FCEVAL  (  NITER,  BCID,  LAMBDA,  CONST  )  ; 

ENDIF ; 

ELSE 

NO  SUPPORT  SET  REDUCTION 

IF  BLQAD  <>  0  THEN 

PRINT  ("LOG-  ( •  >»DISCIPLINB:  STATICS’ )  ")  ; 

CALL  SDCOMP  (  [KAA],  tKLLINV(BC)  ] ,  USETXCBC),  SINGASET  ); 
CALL  PBS  (  tKLLINV(BC)I,  (PA).  [UA]  ); 

ENDIF; 

IF  BMODES  <>  0  THEN 

PRINT {  "LOG*  ( •  »>DISCIPLINE :  NORMAL  MODES » )  " )  ; 

CALL  REI6  (  NITER,  BCID,  USBTX(BC),  [KAA],  [MAA],  ,  ,  LAMBDA, 
[PBIA],  [Mil],  HSIZB(BC}  ); 

CALL  OFPMROOT  (  NITER.  BCID,  LAMBDA  )  ; 

CALL  FCEVAL  (  NITER,  BCID,  LAMBDA.  CONST  )  ; 

ENDIF; 

ENDIF; 

ENDIF; 

IP  BSAERO  <>  0 


$! 

$t 

$! 


PERFORM  STATIC  AEROELASTIC  ANALYSES 

PRINT{ "LOG-  ( •  SABRO  INITIALIZATION’ )  • )  ; 

CALL  TRNSPOSB  (  [GSTKF] ,  (GSKF]  )  ; 

IF  SYMTRN(BC)  THEM 

CALL  TRNSPOSE  (  [HR6STKF]  ,  (GSKFHRT)  )  ; 

CALL  TRNSPOSB  (  (HIGSTKF]  ,  (GSKFHIT)  )  ; 
SNDIF; 

LOOP  TRUE; 


$! 

S! 


NHILE  LOOP  DO 

SUB  SUB  *  1; 

CALL  FTRIMDRV  (  BCID,  SUB,  TRIHDATA,  METHOD,  MODEL.  MACH. 

SYM,  SAMODEL,  SASMCH>BL,  STDYGBOM,  RI6DAL0D, 
RIGDSLOD.  FLEXLOAD,  AICMAT,  AEROGRID, 

CAEROBOX.  SACONPS,  SAGEOH,  [AIC]  .  (AAIC] . 
(ASAIC]  )  ; 

CALL  SAERODRV  (BCID.  SUB,  LOOP.  NINDEX,  SYM,  MACH,  QDP, 
TRIMDATA,  TRIMRSLT.  METHOD,  1  ); 

adjust  the  KFF  matrix  and  DBTRRNINB  the  RIGID  AIR  LOADS 

IF  symthn(bc)  then 
IF  acshtr(bc)  then 

[AICSI]  [HRGTKF]  *  (TRANS  ((ASAIC))*  (GSKFHRT]  ]  ; 

[AICS2]  :  -  (HRGTKF]  *  (TRANS  (  (ASAIC) )  *  (GSKFHIT)  1  +  [AICSI]  ; 
[AICS3]  (HIGTKF)  *  [TRANS  (  (ASAIC)  )*  (GSKFHRT)]  ♦  (AICS2]  ; 
(AICS)  (HIGTKF]*  (TRANS  ((ASAIC))*  (GSKFHIT)]  ♦  (AICS3]  ; 
ELSE 

(AICSUM]  (O.S)  (AIC)  ♦  (O.S)  (AAIC)  ; 

(AICDIF)  (O.S)  (AIC)  -  (0.5)  (AAIC)  ; 

(AICSI)  [HRGTKF]  *  (TRANS  (  (AICSUM)  )*  (GSKFHRT)  ]  ; 

[AICS2]  [HRGTKF]*  (TRANS  ((AICDIF))*  (GSKFHIT))  ♦  [AICSI] 
[AICS3]  [HIGTKPJ*  (TRANS  ((AICDIF))*  [GSKFHRT])  ♦  (AICS2] 
[AICS]  [HIGTKPJ*  (TRANS  ((AICSUM))*  (GSKFHIT))  ♦  (AICS3] 
ENDIF; 

ELSE 

IF  SYM  -  1  (AICS)  :  -  (GTKF]  *  (TRANS  (  (AIC)  )  *  (GSKF)  ]  ; 

IF  SYM  -  -1  (AICS)  : »  (GTKFJ  *  (TRANS  (  (AAIC)  )  *  (GSKF)  J  ; 

ADD  IN  OPTION  FOR  ASYMMETRIC  AIC 

IF  SYM  -  0  [AICS]  :  -  (GTKF)  *  (TRANS  ( (ASAIC)  )  *  (GSKF)  1  ; 

ENDIF; 


DEFINE  ZERO  LOAD  VECTOR  FOR  ACCELERATION  PARAMETERS 


$! 

$! 

$! 


! 


! 

$! 

$! 

$! 

f 

! 

$! 

$! 

$! 

$! 


14 


979 

62 

CALL  ACCFGEN  (NITER,  BCID,  SOB,  SYMTRNCBC)  ,  RIGDALOD,  RIGDSLOD. 

2 

980 

6! 

STDYGBOM,  TRIMDATA,  CONLINK,  TRIMTOC,  (KPPX)  , 

2 

961 

6! 

TLABBL,  [ACCFORCEJ  ,  (ACCBLOADl .  MACH)  ; 

2 

982 

62$ 

$2 

983 

62$ 

$2 

984 

62$ 

USBR  DEFINED  LOADS  PROM  STATIC  LOAD  PARAMETER  DEFINITION 

$2 

985 

62$ 

$2 

986 

62 

CALL  DDEPGEN  (NITER,  BCID,  SUB,  SYWrRN(BC)  ,  RIGDSLOD,  {DDGPORCEJ  ,  2 

987 

62 

(DDFALOADl,  GSI2E,  TLABBL,  TRIMDATA,  STDYGBOM, 

2 

988 

62 

TRIMTOC,  MACH,  YESUDBP)  ; 

989 

62$ 

$2 

990 

6! 

IF  NMPC  <>  0  THEN 

991 

7! 

CALL  GRBDDCB  ( ,  [UDGFORCBl  ,  [PGMN(BC)  1  .  (TMN(BC) )  ,  ,  IDDNPORCBl )  ;  i 

992 

7! 

BLSB 

993 

7! 

(UDNFORCBI  :«  (UDGPORCEl  ; 

994 

72 

BNDIF; 

995 

62$ 

$2 

996 

62 

^  CALL  NRBDUCE  (  ,  IDDNFORCBJ  ,  [PNSP{BC)1.  .  ,  ,  ,  lUDPPORCE)  )  ; 

997 

62$ 

$2 

998 

62 

IF  SYMTRN(BC)  THEN 

999 

72 

CALL  ODEPTRAN  (NITER.  BCID.  SUB,  (UDFFORCBl ,  TRIMTOC, 

1000 

7! 

[HFRBALT(BC)1 ,  [HPIMAGT  (BC)  1 ,  (DDFFORC3C)  >; 

1001 

72 

ELSE 

1002 

72 

(DDFFORCX)  : «  [UDPPORCB] ; 

1003 

72 

ENDIF; 

1004 

62$ 

1005 

62$ 

$2 

1006 

62$ 

NEW  AIR  FORCE  MERGE  ROUTINE 

$2 

1007 

62$ 

$2 

1008 

62 

IP  SYMrRN(BC)  THEN 

1009 

7! 

CALL  ARFHRG  (NITER,  BCID,  SUB,  SYMXIUKBC)  .  TRIMDATA,  TLABBL, 

1010 

72 

RICaSALOD,  STDYGBOM.  IHRGPTKFI  ,  IHIGPTKFI  .  CASE, 

1011 

72 

[AEROLQAD]  ,  (AIRFORCB1 ,  TRIMTOC.  MACH,  YESAERO)  ,- 

1012 

72 

BLSB 

1013 

72 

CALL  ARFMRG  (NITER,  BCID.  SUB,  SYMTRN(BC)  ,  TRIMDATA.  TLABBL, 

1014 

72 

RIGDALOD.  STDYGBOM,  tGPTlCP]  .  [HIGPTKF]  .  CASE, 

1015 

72 

{AEROLOADl ,  [AIRFORCE]  ,  TRIMTOC,  MACH,  YESAERO)  ; 

1016 

72 

ENDIF; 

1017 

62$ 

$2 

1018 

62$ 

MBRGB  LOADS  IN  THE  AERODYNAMIC  DOMAIN  FOR  STABILITY  DERIVATIVBS 

$2 

1019 

62$ 

$2 

1020 

62 

[SAROLOAD]  :«  (ACCBLOADl; 

1021 

62 

IF  YBSUDBF  THEN 

1022 

72 

CALL  APPEND  (  (UDFALOAD] ,  [5AR0LQAD]  ) ; 

1023 

7! 

ENDIF; 

1024 

62 

IF  YESAERO  THEN 

1025 

72 

CALL  APPEND  (  (AEROLOADl ,  [SAROLQAD]  )  ; 

1026 

7! 

ENDIF; 

1027 

62 

CALL  RIGDSTAB  (  BCID,  SUB,  TRIMTOC,  [SAROLOAD] ,  STDYGBOM, 

1028 

6! 

BGPDT(BC)  ,  QDP,  STABCPA  )  ; 

1029 

62$ 

$2 

1030 

62$ 

MERGE  LOADS  IN  THB  STRUCTURAL  DOMAIN  FOR  ABROLBLATIC  SOLUTION 

$2 

1031 

62$ 

$2 

1032 

62 

[PAF]  [ACCFORCB] ; 

a 

1033 

62 

IF  YBSUDBF  THEN 

1 

1034 

72 

CALL  APPEND  (  [UDFPORCX] ,  [PAF]  )  ; 

1 

1035 

7! 

BNDIF; 

t 

1036 

62 

IF  YESAERO  THEN 

1 

1037 

72 

[PAFX]  (QDP)  [AIRFORCB]  ; 

1 

1038 

7! 

CALL  APPEND  (  [PAFX]  ,  [PAF]  )  ; 

j 

1039 

7! 

ENDIF, - 

t 

1040 

62 

CALL  UTNPRG  (  [PAFX]  ) ; 

1 

1041 

62 

[KAFF]  :«  [KFFX]  -  (QDP)  [AICS]  ; 

j 

1042 

62$ 

CALL  UTMPRG  (  [AICS]  )  ; 

f 

1043 

62$ 

$2 

1044 

62$ 

REDUCE  THB  MATRICES  HITE  ABROBLASTIC  CORRECTIONS 

$2 

1045 

62$ 

SAVE  THB  SUBCASB/BC  DEPENDENT  DATA  FOR  SENSITIVITY  ANALYSIS 

$2 

1046 

62$ 

$2 

1047 

6! 

IP  N(a)R  <>  0  THEN 

t 

1048 

72$ 

$2 

1049 

72$ 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 

$2 

1050 

72$ 

$2 

1051 

7! 

PRINT  (  -LOG-  ( '  SABRO  DYNAMIC  REDUCTION •)’*); 

t 

1052 

72 

[MAAA]  :•  TRANS  (  [GSUBO(BC)]  )  *  [  [MFFX]  *  [6SUB0(BC)]  ]; 

t 

1053 

72 

[KAAA]  :»  TRANS  (  (GSUBO{BC}]  )  *  [  [KAFF]  *  [GSUBO(BC)]  ]; 

t 

1054 

72 

[PAA]  TRANS  {  [GSUBO(fiC)]  )  *  [PAF]; 

1 

1055 

72 

ELSE 

f 

1056 

72 

IF  NOMIT  <>  0  THEN 

1 

1057 

82$ 

$2 

1058 

82$ 

PERFORM  THB  STATIC  REDUCTION 

$2 

1059 

82$ 

$2 

1060 

82 

PRINT  ( "LOG-  ( •  SAERO  STATIC  CONDENSATION*  )  - )  ; 

I 

1061 

82$ 

$2 

1062 

82 

IF  NITER  -  1  AND  SUB  «  1  AND  NRSBT  <>  0  AND  BLOAD  »  0  AMD  2 

1063 

92 

BMODBS  »  0  AMD  BFLUTR  *  0  AND  BDYN  -  0  THBN 

1 

1064 

92$ 

$2 

1065 

92$ 

FORM  [XAA]  ON  FIRST  PASS  SO  [D]  CAN  BE  FORMED 

$2 

1066 

92$ 

$2 

1067 

92 

CALL  FREDUCB  ([KFFX],  ,  [PPOAX(BC)  ]  ,  .  [KOOINV(BC)  ]  .  ,  . 

t 

1068 

92 

[GSUBO(BC)].  [KAA],  ,  ,  USEIX  (BC)  ); 

t 

15 


1069 

9! 

BNDIF; 

! 

1070 

8!$ 

$! 

1071 

8! 

CALL  FREDUCE  (  [KAPFl  ,  [PAF] .  [PFOAX(BC)],  BSABRO. 

1072 

8! 

(K00L(6C,SnB)]  ,  [KOOU(BC.SUB)]  , 

1073 

8! 

[KAO{BC,SUB)]  ,  [GASUBO{BC,SUB}]  ,  (KAAAl  « 

1074 

8! 

[PAA].  [PQARO(BC,SUB)]  ,  USBTX(BC)); 

1075 

8!$ 

$! 

1076 

8! 

IF  BMASS  <>  0  THEN 

1077 

9!$ 

$! 

1078 

9»$ 

PERFORM  GUYAN  REDUCTION  OP  THE  MASS  MATRIX 

$! 

1079 

9!$ 

$! 

1080 

9! 

CALL  PARTN  (  [MFFX] «  (MOO)  .  ,  [MOA]  ,  [MAABAR]  , 

1081 

9! 

[PFOAX(BC)]  );* 

1082 

9! 

[MAAA]  :>  [HAABAR]  TRANS (  [MOA]  )  *  (GASUBO(BC, SUB)  ]  > 

1083 

9! 

TRANS ((GASUBO(BC, SUB)])  *  (HQA] 

1084 

9! 

TRANS  ((GASUBO(BC.  SUB)])  *  ({MOO]  * 

1085 

9! 

[GASUBO(BC,SUB) ]] ; 

1086 

9! 

,  IF  BRSET  <>  0 

1087 

10! 

[IFMA(BC.SUB)]  :»  (MOO]  *  [GASUBO  (BC,  SUB)  ]  •►  [NQA]  , 

1088 

9! 

ENDIF; 

1089 

8! 

ELSE 

1090 

8!$ 

$! 

1091 

8!$ 

NO  F-SBT  REDUCTION 

$! 

1092 

8!$ 

$! 

1093 

8! 

IF  NITER  «  1  AND  SUB  -  1  AND  NRSET  <>  0  AND  BLOAD  »  0  AND  ! 

1094 

9! 

BH006S  -  0  AND  BFLUTR  »  0  AND  BDYN  -  0  THEN 

1095 

9!$ 

$! 

1096 

9!$ 

FORM  [RAA]  ON  FIRST  PASS  SO  [D]  CAN  BE  FORMED 

$! 

1097 

9!$ 

$! 

1098 

9! 

IKAA]  ;»  [KFPXI; 

1099 

9! 

BNDIF; 

1100 

B> 

(KAAA]  (RAFF]; 

1101 

8! 

(MAAAl  :»  (MFFX]; 

1102 

8! 

(PAA]  :  -  (PAP]  ; 

1103 

8! 

BNDIF; 

1104 

7! 

BNDIF; 

1105 

6!$ 

$! 

1106 

6! 

IP  NRSET  <>  0  THEN 

1107 

7!$ 

$! 

1108 

7!$ 

PERFORM  THE  SUPPORT  SET  REDUCTION 

$! 

1109 

7!$ 

1110 

7! 

PRINT ( "LOG- ( •  SABRO  SUPPORT  REDUCTION* ) • )  ; 

1111 

7!$ 

1112 

7! 

IF  NITER  «  1  AMD  SUB  -  1  AMD  BLOAD  «  0  AND  BM0DB5  «  0  AND 

1113 

8! 

BFLUTR  «  0  AMD  BDYN  -  0  THEN 

1114 

8t$ 

$! 

1115 

8!$ 

CD]  NAS  NOT  COMPUTED  FOR  NON-SAERO  DISCIPLINES  SO 

$! 

1116 

8!$ 

NEED  TO  COMPUTE  IT  NOW 

$! 

1117 

8!$ 

$! 

1118 

8! 

CALL  PARTN  (  (KAA]  ,  [KRR]  .  (KLR]  .  .  [KLL] «  [PARLX  (BC)  ]  ) 

1119 

8! 

CALL  SDCOMP  (  (KLL],  (KLLINV<BC)  ]  .  USETX(BC),  SINGLSBT  ); 

1120 

8! 

CALL  FBS  (  (KLLINV(BC)].  (KLR],  (D(BC)],  -1  ); 

1121 

8! 

CALL  RBCHECK  (  BCID.  nSBTX(BC)  .  BGPDT(BC)  ,  [D(BC)],  [KLL], 

1122 

8! 

(KRR],  (KLR]  ); 

1123 

8! 

ENDIF; 

1124 

7!$ 

$! 

1125 

7!$ 

CALCULATE  THE  REDUCED  MASS  MATRIX 

$! 

1126 

7!S 

$! 

1127 

7! 

CALL  PARTN  (  (MAAA]  ,  (MRRBAR]  ,  [MLR]  ,  ,  [MLL]  .  (PARLX(BC)  ]  )  ; 

f 

1128 

7! 

(RIKBC.SUB)]  :»  (MLL]  «  (D(BC)]  i-  [MLR]; 

I 

1129 

7! 

tR33)  (MRRBAR]  ♦TRANS  (  (MLR)  )  *  ID(BC)]  ♦ 

1 

1130 

7! 

TRANS  (  (D<BC)]  )  *  (R13  (BC,SUB)  ]  ; 

I 

1131 

7! 

[R221  TRANS  (  ED(BC)]  )  *  [MLR]  ♦  [MRRBAR); 

1 

1132 

7! 

CALL  TRNSPOSB  (  {R13  (BC.  SUB)  ]  .  [R21  (BC.  SUB)  ]  )  ; 

t 

1133 

7!$ 

$! 

1134 

7!$ 

PROCESS  STEADY  AEROBLASTIC  DISCIPLINE 

$! 

1135 

7!$ 

$! 

1136 

7! 

PRINT  (  "LOG-  ( •  »>DISCIPLINB :  STEADY  AERO '  )  " )  ; 

1 

1137 

7! 

CALL  PARTN  (  [KAAA].  [KARR].  [R12  (BC.  SUB)  ]  .  [KARL].  [Rll] . 

J 

1138 

7! 

[ PARLX (BC)]  }; 

1 

1139 

7! 

[R32(BC.SUB))  TRANS  ([D(BC)])  *  [R12  (BC.SUB)  ]  ♦  [KARR]; 

! 

1140 

7! 

IR31(BC.SUB)1  TRANS ((D(BC)l)  •  [Rll]  ♦  [KARL]  ; 

1 

1141 

7!$ 

$! 

1142 

7! 

CALL  DECQHP  (  [Rll].  [RLll  (BC.  SUB)  ]  .  (RUIKBC.SUB)  ]  ); 

f 

1143 

7!$ 

$! 

1144 

7! 

CALL  ROMPART  (  (PAA].  [PARBAR]  .  (PAL].  [PARLX  (BC)]  ); 

1 

1145 

7! 

CALL  GFBS  (  (RLll  (BC,  SUB)  ]  ,  (RUll  (BC.  SUB)  J .  (PAL]  . 

J 

1146 

7! 

(RllPAL (BC.SUB) ]  .  -1) ; 

1 

1147 

7! 

[FRIGID]  ;«  (PARBAR]  ♦  TRANS  (  (D  (BC)  ]  )  *  [PAL]; 

1 

1148 

7! 

[PI]  [R21  (BC.SUB)]  •  [RllPAL (BC. SUB)  ]  ; 

1 

1149 

7! 

[P2]  :>  [PRIGID]  ♦  [R31  (BC.SUB)]  *  [RllPAL  (BC.  SUB)  ]  ; 

1 

1150 

7!$ 

$! 

1151 

7! 

CALL  GFBS  (  (RLll  (BC.SUB)  ] .  (RUIKBC.SUB)].  (R12  (BC.SUB)  ]  . 

1 

1152 

7! 

(R1112 (BC.SUB)].  -1); 

1 

1153 

7! 

CALL  GFBS  (  (RLll  (BC, SUB)  ]  .  [RUll  (BC.SUB)  ]  .  [R13  (BC,  SUB)  ]  . 

; 

1154 

7! 

(R1113{BC,SUB)] .  -1); 

{ 

1155 

7! 

(KID  (R22]  ♦  (R21  (BC.  SUB)  ]  *  (R1112  (BC.  SUB)  ]  ; 

1 

1156 

7! 

(K12  (BC.SUB)]  (R21  (BC,  SUB)  ]  "  {R1113(BC.SUB)]; 

1 

1157 

7! 

(K21  (BC.SUB)]  (R32(BC.SUB)  ]  ♦ 

1 

1158 

7! 

[R31  (BC.  SUB)  ]  *  IR1112  (BC.  SUB)  ]  ; 

f 
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:»  [R331  +  tR31(BC.SUB)l  *  (R1113 <BC,SUB) 3 ; 


1159 

7! 

1160 

7!$ 

1161 

7} 

1162 

7! 

1163 

7! 

1164 

7! 

1165 

7! 

1166 

7! 

1167 

7! 

1168 

7!$ 

1169 

7!$ 

1170 

7!$ 

1171 

7! 

1172 

7! 

1173 

7! 

1174 

7! 

1175 

7! 

1176 

7!$ 

1177 

7!$ 

1178 

7!$ 

1179 

75$ 

1180 

7! 

1181 

7! 

1182 

7! 

1183 

7! 

1184 

7! 

1185 

7!$ 

1186 

7! 

1187 

8! 

1188 

8! 

1189 

8! 

1190 

8! 

1191 

8! 

1192 

8! 

1193 

8! 

1194 

8! 

1195 

8! 

1196 

8! 

1197 

8! 

1198 

8! 

1199 

8! 

1200 

8! 

1201 

8! 

1202 

7! 

1203 

8! 

1204 

9! 

1205 

9! 

1206 

9! 

1207 

9! 

1208 

9! 

1209 

8! 

1210 

8! 

1211 

8! 

1212 

7!$ 

1213 

7! 

1214 

8! 

1215 

8! 

1216 

8! 

1217 

8! 

1218 

8!$ 

1219 

8! 

1220 

9!$ 

1221 

9! 

1222 

9! 

1223 

9! 

1224 

9! 

1225 

9! 

1226 

9! 

1227 

9! 

1228 

9!$ 

1229 

9! 

1230 

9! 

1231 

9! 

1232 

9! 

1233 

9! 

1234 

9! 

1235 

9! 

1236 

9!$ 

1237 

9! 

1238 

9! 

1239 

9! 

1240 

9! 

1241 

9!$ 

1242 

9! 

1243 

9! 

1244 

9! 

1245 

9! 

1246 

9!$ 

1247 

9! 

1248 

9! 

tK221 

$! 

CALL  DBCOMP  (  [Kill.  [KLXl  <BC.  STJB)  ]  ,  [KOll  {BC,  SOB)  ]  );  ! 

CALL  GPBS  (  tKLll(BC,SUB)3  .  [KOIX  (BC,  SUB)  1  ,  [Pll  .  ! 

[PAR (BC, SUB) 3  );  ! 

CALL  GPBS  (  rKLll(BC,SDB)l .  [KUll (BC, SUB) 3 ,  [K12 {BC. SUB) 1 ,  ! 

[K1112(BC.SUB)1,-1} ;  ! 

[LHSA(BC,SUB)  1  :»  tK22]  ♦  [K21  (BC, SUB)  ]  •  [K1112  (BC, SUB)  3  ! 

[RHSA(BC,SUB)I  [P2)  -  {K21 (BC. SOB) 1  *  [PAR{BC. SUB) J ;  ! 

$! 

FLEXIBLE  STABILITY  COBFFICIBJTrS  COMPUTATION  $! 

$! 

CALL  PLBXSTAB  (  NITER,  BCID,  MINDBX,  SUB,  SYM,  QDP,  TRIKDATA,  I 
STABCPA,  STABCPS,  BGPDT(BC)  .  CLHSA{BC, SUB) 1 .  ! 

{RB5A(BC.SUB)] .  [AAR] .  (DBLTA(SUB) ] .  I 

[PRIGID3.  (R33],  CONST,  ASFLG(5UB) ,  [AARC3 ,  ! 

CDBLCl,  SYKrRK(BC),  STDYGBOM,  DOTRMCON  );  ! 

$t 

GENERATE  FLEXIBLE  STRUCTURAL  TRIM  PARAMETER  LOAD  VECTORS  $! 
AND  DEFLECTION  VECTORS  TO  BE  LOADED  INTO  GROUP  FLEXLOAD  $! 

$! 

CALL  GFBS  (  (RLll  (BC,  SUB)  ]  ,  [RUll  (BC,  SUB)  ]  ,  [R13  (BC,  SUB)  ]  ,  ! 

[ULFLX21 ,  -1) ;  ! 

(DLFLX13  ;•*  *  (R11FAL(BC,SUB)  ]  ;  ! 

CALL  ROWMBRGE  (  IUAFLX13  ,  ,  [ULFLX13  ,  (PARLX  (BC)  3  );  ! 

CALL  ROWNERGB  (  {UAFLX2)  ,  .  [ULFLX23  .  [PARLX(BC}3  );  ! 

$I 

IF  NOMIT  <>  0  THEN  ! 

CALL  GPBS  (  [KOOL(BC,SUB)] ,  [KOOU(BC, SUB) 3 ,  ! 

[POARO(BC,SUB)] .  (KOOPOA3,  1);  ! 

CALL  TRNSPOSB  <  [KAO(BC,SUB)  3  ,  IKAOT(BC,  SUB)  3  );  ! 

CALL  GFBS  (  (XOOL (BC, SUB) 3 ,  (ROOU(BC, SUB) 3 .  ! 

tKAOT(BC,SDB)] ,  IKOOKAO] .  -1);  ! 

(UOFLX13  :=  tKOOPOAl  -►  [K00KA03  *  [UAFLXll  ;  ! 

[UOFLX23  :>  [KOOKAO]  *  (UAFLX23  ;  ! 

CALL  ROHMERGB  (  [UFFLXl]  .  (UOFLX13  .  [UAFLXl]  ,  ! 

[PFQAX(BC)3  );  ! 

CALL  ROHMERGB  (  [nFPLX23  .  (UOFLX2]  .  [UAFLX23  .  ! 

[PPOAX(BC)]  };  ! 

ELSE  ! 

(UFPLX13  :«  {UAFLX13;  ! 

(UPPLX2]  {UAFLX23;  ! 

ENDIP;  ! 

IP  SYMTRN(BC)  THEN  ! 

IP  ACSMTR(BC)  THEN  ! 

{PAG3  :  •  (QDP)  (GPTKG3  *  [XREALX3  *  (SAROLOADI  ;  ! 

(PAGI3  : »  (QDP)  [GPTKG3  * [KIHAGK] * [SAROLOAD3 ;  ! 

ELSE  ! 

(PAG3  ;  -  (C^P)  [GPTXG]  *  (SAROLQAD3  ;  ! 

ENDIP;  • 

ELSE  ! 

(PAG3  :»  (QDP)  [GPnC63  *  [SAROLOAD]  ;  ! 

ENDIP;  ! 

$! 

IP  SyNTRN(BC)  THEN  ! 

[UFX1HRT3  (HPRBAL(BC)  3  *  [UFFLXl  1  ;  ! 

rUFXlHIT)  :»  [HFIMAG(BC)3*(UFFLX13  ;  I 

[UFX2HRT3  :•  [HPRBAL  (BC)  3  •  [UFFLX2  ]  ;  \ 

[UPX2Krr3  ;»  (HFIHAG(BC)  3*  [UFFLX23  ;  ! 


IF  ACSMrR(BC)  THEN 

[GTXGKR3  :  -  (GTKG3  *  [KRSALK]  ; 

[GTKGKX 3  :  -  (GTEG3  *  [E1MAGK3  ; 

(FLXTMP13  : «  [GSKF3  *  [HFRBAL  (BC)  3  *  [GSICF)  *  (HFIHAG  (BC)  3  ; 
(PLrrMP23  :  -  { IKRBALT3  ♦  [KIMAGT3  3  *  [ FLXTMP13  ; 

(FLXTMP33  :-TRAMS([ASAIC])*[FLX7MP23  ; 

(PLXXX13  :-(FLXTHP33*[UFFLXl3  r 
[PLXKX23  :»[PLXTMP33*(DFPLX23  ; 


! 


(PLXF1R3  :•  (QDP)  [GTKGKR3  *  tFLXKX13  ; 
tFLXFlIl  (QDP)  (GTKGKIl  *  tPLXKXl)  ; 

[PLXF2R3  (QDP)  [GTKGXR]*(FLXXX23  ; 

[FLXF2I3  :«  (QDP)  [(mCGEI)  *  [FLXKX23  ; 

ELSE 

[FXJCTMPS3  :  -  (QDP)  [GTXG3  •  [TRANS  (  [AIC3  )  *  [GSXF3  3  ; 
[FLXTMPA3  ;  -  (QDP)  [GTEG)  •  [TRANS  (  [ AAIC3 )  *  [GSKP3  3  ; 


[UFXISUN) 

(O.S) 

[UFX1DIP3 

(0.5) 

[UFX2SUM] 

:«  (O.S) 

[UFX2DIF3 

j-  (O.S) 

{DFX1ERT3  •*.  (O.S) 
[UFX1HRT3  -  (0.5) 
[UFX2HRT3  (0.5) 
[DFX2HRT3  •  (O.S) 


[UPX1HIT3  ;  t 

[UFX1HIT3  ;  ! 

(DFX2HIT3  ;  ! 

[UPX2HIT)  ;  ! 


(FLXF1SUH3  :  - 
[FLXF10IP3 
[FLXF2SUM3 
[FLXF2DIF3  :» 


{FLXTMPS3  *  [UPX1SOM3  ; 
[PLXTMPA3  *  (UPX1DIP3  ; 
[PLXTMPS3  *  (DFX2SDM1  ; 
CFLXTMPA3  *  [UPX2DIP3  ; 


[FLXF1R3  :>  [PLXPlSUMl  [PLXP1DIF3  ; 
[FLXF1I3  :«  [PLXP1SUH3 '  [FLXF1DIF3  ; 
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1249 

9! 

[FLXF2R]  :>  (PUCP2SUM]  [FLXP2DIF}  ; 

1250 

9! 

[PUCP2I1  (FLXP2SUM]  -  tFLXF2DIPl  ; 

1251 

9» 

BNDIF; 

1252 

8> 

ELSE 

1253 

8! 

IF  SYH  -  1  THEN 

1254 

9! 

[FXXTMP]  :  -  (QDP)  [GTKG]  *  [TRANS  { [AIC]  }  *  [GSKP]  ]  ; 

1255 

9! 

ENDIF; 

1256 

8> 

IF  SYM  »  *1  THEN 

1257 

9! 

(PUnMP]  :  -  {QDP)  [GTKG)  *  [TRANS  (  [AAIC)  )  *  [GSKP)  J  ; 

1258 

9! 

BNDIF; 

1259 

8! 

IF  SYM  «  0  THEN 

1260 

9! 

[FLXTMPl  :*  (QDP)  [GTKG]  *  (TRANS  { [ASAIC]  )  *  (GSKP)  ]  ; 

1261 

9! 

ENDIF; 

1262 

8! 

IFLXFRCll  :»{PLXTMP1*[UPPLX1)  ; 

1263 

8! 

tFLXFRC2l  :-(PLXTMPl*tDFFIiX2J  ; 

1264 

8! 

ENDIF ; 

1265 

7!$ 

$( 

1266 

7!$ 

f  LOAD  GROUP  FLEXLOAD 

$r 

1267 

7!$ 

$) 

1268 

7! 

IF  SYMTRN(BC}  THEN 

1269 

8! 

CALL  FLXLODLD  (  BCID,  SUB,  TRIMIDC,  TRIMDATA,  (PAG)  , 

1270 

8! 

(PAGIl,  [FLXFIRI,  (PLXPII),  IPLXF2R) , 

1271 

8! 

IFLXP2I1,  [MGGl,  [OPXIHRT],  (UFXIHIT) . 

1272 

8! 

IDFX2HRT)  ,  (UPX2HITI ,  BGPDT(BC)  , 

1273 

8! 

PLBXLQAD,  SYMTRN(BC),  ACSMTR(BC) , 

1274 

8! 

NBiriTBR  ); 

1275 

8! 

ELSE 

1276 

8! 

CALL  FLXLODLD  (  BCID.  SUB.  TRINIDC.  TRIMDATA.  [PAG] .  . 

1277 

8! 

[PLXFRCl].  .  [FLXFRC2J.  .  [MGGl. 

1278 

8! 

(UPFLXl).  .  [UFPLX21.  .  BGPDT{BC) . 

1279 

8! 

FLEXLOAD,  SYMTRN(BC)  .  ACSIfTRCBC). 

1280 

8! 

NBHITER  ) ; 

1281 

8! 

ENDIF; 

1282 

7!$ 

1283 

7!$ 

GENERATE  TRIM  PARAMETER  BMST  DATA 

$t 

1284 

7!$ 

$! 

1285 

7! 

CALL  PARMBMST  (  TRINIDC.  FLEXLOAD.  [PAG]  .  [PA61]  .  [SAROLOAD] 

1286 

7! 

STDYGEOM,  SYMTRN(BC),  ACSMTR(BC).  BMSTDATA  ) 

1287 

71$ 

1288 

7!$ 

GENERALIZED  TRIM  AND  TRIM  OPTIMIZATION 

$! 

1289 

7!$ 

$! 

1290 

7! 

SCHITER  :«  0; 

1291 

7! 

SCHCNVG  ;>  FALSE; 

1292 

7! 

NHILE  NOT  SCHC3IVG  DO 

1293 

8! 

SCHITER  :■  SCHITER  •¥  1; 

1294 

8> 

CALL  SCHDULER  (  BCID.  SUB.  TRIMDATA.  TRIMRSLT,  TRIMIOC. 

1295 

8! 

[AAR],  (DBLTA(SUB)].  SCHITER. 

1296 

8! 

SCHCNVG  ) ; 

1297 

8! 

CALL  FLEXTRIM  {  NITER.  BCID.  SOB.  SYM.  QDP. 

1298 

8! 

TRIMDATA,  TRIMRSLT,  TRIMTOC, 

1299 

8! 

[LBSA(BC.SUB)].  (RaSA(BC.SUB)  ]  . 

1300 

8! 

[AAR],  (DBLTA(SUB)].  [FRIGID].  (R33)  ); 

1301 

8! 

CALL  FTRIMOPT  (  NITER.  BCZD,  SUB.  SYM,  QDP. 

1302 

8! 

TRIMDATA,  TRIMRSLT.  TRIMTOC, 

1303 

8! 

[LRSA(BC.SUB)].  [RHSA(BC.  SUB)  ]  . 

1 

1304 

8! 

(AAR).  [DELTA(SUB)].  [FRIGID],  [R33]  , 

1305 

8! 

BMSTDATA  ); 

1306 

8! 

ENDDO; 

1307 

7!$ 

1308 

7!$ 

GENERATE  TRIM4BD  BMST  DATA 

$i 

1309 

7!$ 

$r 

1310 

7! 

TRMRIGD  ;»  FALSE; 

1311 

7! 

CALL  OFPBMST  (  NITER,  BCID,  SUB.  QDP.  [AAR],  [DELTA  (SUB) )  . 

1312 

7‘ 

TRIMDATA,  TRIMTOC,  BMSTDATA.  TRMRIGD. 

1313 

7! 

OBMSTLOD  ); 

1314 

7!$ 

Si 

1315 

7! 

[AAL]  (D(BC})  *  [AAR]  ; 

1316 

7! 

CALL  RONNERGE  (  [AAA(SUB)].  [AAR],  [AAL],  [PARLX(BC)]  ); 

1317 

7! 

[UAR]  (K1112(BC,SUB)]  •  [AAR]  ♦  [PAR(BC.SUB)  ]  * 

1318 

7! 

[DELTA (SUB)  ]  ; 

1319 

7! 

[UAL]  (R1112(BC.SOB))  *  [UAR]  ♦  [R1113  (BC,  SUB)  ]  •  [AAR] 

1320 

7! 

-  [R11PAL(BC,S0B)J  *  [DRLTA(SUB)]  ; 

1321 

7! 

CALL  RONNERGE  (  [UAA(SUB)].  [UAR].  [UAL],  [PARLX{BC)]  ); 

1322 

7! 

IF  NOMIT  <>  0  [PAO(SUB)]  :•  [PQARO(BC.SUB)  ]  *  [OBLTA(SDB)]  ; 

1323 

7! 

IF  ABFLG(SUB)  THEN 

1324 

8! 

[AAL]  :»  [D(BC)]  *  [AARC]  ; 

1325 

8! 

CALL  RONMERGE  (  [AAAC(SUB)].  [AARC],  [AAL],  [PARLX(BC)]  ) 

1326 

8! 

[UAR]  :»  [K1112(BC.SUB)]  *  [AARC]  ^  (PAR(BC.SUB)  ]  * 

1327 

8! 

[DELCl  .- 

1328 

8! 

[UAL]  :•  [R1112(BC.SUB)]  *  [UAR]  •»> 

1329 

8! 

[R1113 (BC. SUB) ]  *  [AARC]  - 

1330 

8! 

[RllPAL(BC.SUB)]  *  [DELC]; 

1331 

8! 

CALL  RONMERGE  (  [UAAC(SUB)].  [UAR],  [UAL],  [PARLX(BC))  ); 

1332 

8! 

IF  NOHIT  <>  0  [PAOC(SUB)]  :»  [PQARO (BC. SUB)  ]*  [DELC]  ; 

1333 

8! 

ENDIF; 

1334 

7! 

ELSE 

1335 

7!$ 

$! 

1336 

7!$ 

NO  SUPPORT  SET  REDUCTION 

St 

1337 

7!$ 

PROCESS  STEADY  AEROBLASTIC  DISCIPLINE 

SI 

1338 

7!$ 

SI 
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PRINT  ("  LOG- (* 


.>DISCIPLINB :  STEADY  AERO  * ) " ) ; 


1339 

1340  7!$ 

1341  7! 

1342  €! 

1343  5! 

1344  4!$ 

1345  4!$ 

1346  4!$ 

1347  4!$ 

1348  4! 

1349  5! 

1350  6! 

1351  6! 

1352  6! 

1353  6! 

1354  7 ! 

1355  7! 

1356  7! 

1357  7 » 

1358  7! 

1359  7» 

1360  7f 

1361  7! 

1362  7! 

1363  7 ! 

1364  7 ! 

1365  7! 

1366  7! 

1367  7! 

1368  7! 

1369  6! 

1370  5!$ 

1371  5! 

1372  6! 

1373  7! 

1374  7! 

1375  6! 

1376  7! 

1377  7! 

1378  6! 

1379  6 ! 

1380  6! 

1381  6! 

1382  6! 

1383  6! 

1384  6! 

1385  6! 

1386  6! 

1387  6! 

1388  6! 

1389  6! 

1390  6! 

1391  6! 

1392  6! 

1393  6! 

1394  6! 

1395  5! 

1396  4! 

1397  5! 

1398  5! 

1399  5! 

1400  5! 

1401  5 ! 

1402  5! 

1403  5 ! 

1404  5 ! 

1405  5 ! 

1406  5! 

1407  5! 

1408  5 ! 

1409  S! 

1410  5 ! 

1411  5! 

1412  5 ! 

1413  5! 

1414  5 ! 

1415  5! 

1416  5! 

1417  5 ! 

1418  5 ! 

1419  5 ! 

1420  5! 

1421  5 ! 

1422  5! 

1423  5 • 

1424  5 ! 

1425  4!$ 

1426  4 ! $ 

1427  4!$ 

1428  4! 


$ 

BNDIF; 

ENDDO; 


PERFORM  ANY  DYNAMIC  ANALYSES  --  NOTE  THAT  THESE  ARE  INDEPENDENT  $ 

OF  THE  SUPPORT  SET  $ 

$ 

IP  BDYN  <>  0  THEN 

IF  BFLUTR  <>  0  THEN 

PRINT { "LOG- ( •  »>DISCIPLINB ;  FLUTTER ’ ) * ) ; 

SDBF  :»  0; 

LOOP  TRUE; 

WHILE  LOOP  DO 

SUBF  SUSP  *  1; 

CALL  FLUTDRV  (  BCID,  SUBF,  LOOP  } ; 

,  CALL  FLUTQHHL  (  NITER,  BCID,  SUBF.  BSIZB(BC) ,  PSI2E(BC) , 

IQKKL],  [XK3TKA1,  [PHIA]  .  USET(BC)  , 

[TMN(BC)J.  [GSUBO(BC)J,  NGDR,  ABCOHPU,  GEOMOA, 
[PHIKH]  .  (QHHLFL(BC, SUBF) ] ,  OAGRDDSP  ) ; 

CALL  FLDTDMA  <  NITER,  BCID,  SUBF,  BSI2B(BC),  PSI2E(BC), 
BGPDT(BC),  nSBT(BC),  [MAA]  ,  [KAA]  ,  [TMN(BC)  ]  , 
(GSUBOIBC)],  NGDR,  LAMBDA,  IPHIAI , 

[MHHPL(BC,SUBP)  J  ,  [BHHFL{BC,  SUSP)  1 .  IICHHPL(BC,SUBP)  1 )  ; 
CALL  FLOTTRAN  (  NITER,  BCID,  SUBF,  (QHHLFL(BC,  SUBF)  ]  ,  LAMBDA, 
KSIZB(BC},  ESIZB(BC),  (MHHFL{BC, SUBF) ]  , 
CBHHFL(BC,SUBP)3 ,  IKHHPL(BC,SUBP) I , 

CLAMBDA,  CONST  )  ; 

ENDDO; 

EHDIF; 

$ 

IF  BDRSP  <>  0  THEN 

IP  BMTR  <>  0  OR  BDTR  <>  0  THEN 

PRINT  { ”LOG-  { '  >»DISCIPLINE :  TRANS lENT  RESPONSE ' )  * )  ; 


EHDIF; 

IF  BHFR  <>  0  OR  BDFR  <>  0  THEN 

PRINT ( "LOG- ( *  »>DISCIPLIHE :  FREQUENCY  RESPONSE ' )  * )  ; 


BNDIF; 

CALL  QHHLGEN  (BCID,  BSIZB(BC),  IQOXl ,  [QKJL]  ,  [UGTKA]  ,  [PRIA)  , 
[PRIXHl  ,  (QHHL] ,  [QBJL] } ; 

CALL  DMA  (  NITER,  BC,  SSIZB(BC),  PSIZB(BC)  ,  BGPDT(BC),  USET(BC) , 
[MAA),  [KAA],  CTMN(BC)],  [GSUBO(BC)],  NGDR, 

LAMBDA.  [PHIA],  [HDD],  [BOD],  [KDDT] ,  [KDDF] , 

(MHHl ,  [BHHl  ,  [KBHT]  ,  [KHHF]  )  ; 

CALL  DYHLOAD  (  NITER,  BCID,  GSIZB,  ESI2B{BC) ,  PSIZS(BC),  SMPLOD, 
BGPDT(BC),  USBT(BC),  [TMN(BC)  ] ,  [GSUBO(BC)], 

NS>R,  [PHIA]  .  [QEJL]  ,  [PDT] ,  [PDF] , 

[PTGLOAD],  [PTHLOAD],  [PFGLOAD] ,  [PFKLOAD]  ); 
CALL  DYNRSP  (BCID,  ESIZB(BC)  ,  [MDD]  ,  [BDD]  ,  [KDDT],  [KDDF], 
(MHHl,  [BHH],  [KHHT],  [KHHF],  [POT],  [PDF], 

[QHRL],  [UTRANA],  [UFRBQA]  ,  [UTRANI] .  (UFRBQIl , 
[UTRANB] ,  [UFRBQBI  ) ; 

IP  BMTR  <>  0  [UTRANA]  [PHIA]  *  [UTRANI]; 

IF  BMFR  <>  0  [UFREQA]  [PHIA]  *  [UFREQI] ; 

BNDIP; 

ENDIF; 

IP  BBLAST  <>  0  THEN 

PRIBT{*LOG-(‘  »>DISCIPLINB;  BLAST*)*); 

CALL  BLASTFIT  (  BCID,  [QJJL] ,  [NATTR] ,  [NATSS] ,  BQDP,  [BFRC] . 

[DHNH5H],  HSIZB(BC),  [102],  [MPART] .  [UGTKA], 
[BL6TJA1 ,  [BLSTJA]  ) ; 

CALL  COLPART  (  [PHIA]  ,  ,  [PHIS]  ,  [MPART]  )  ; 

CALL  R0HMBR6S  (  [PRIR]  ,  (ID2]  ,  [D(BC)  ]  ,  [PARLX(BC)  ]  )  ; 

CALL  COLNBRGB  (  [PBIB] ,  [PHIR] ,  [PHIB] ,  [MPART]  }; 

[GBWf]  TRANS  (  [PHIB]  )  *  (  [MAA]  *  [PHIB]  ]; 

[GBHK]  TRANS  (  [PHIB]  )  *  [  [KAA]  *  [PHIB]  ]; 

[DTSLPl  TRANS  (  [BLSTJA]  )  *  [PHIB]  ; 

[FTP]  TRANS  (  [PHIB]  )  *  [BL6TJA]  ; 

[CTNP]  (BQDP)  (FTP)  •  [BFRC]  ; 

(GBHFAI  :«  (BQDP)  [FTP]  *  [MATSS]  ; 

[GBNQ]  :>  [GBNFAl  *  [DTSLP]  ; 

(GBMQL]  (BQDP)  [FTP]  *  [MATTR]  ; 

CALL  PARTN  (  [GENQ]  ,  [QRR]  .  ,  [QRB]  .  [QBE] ,  [MPART]  }  ; 

CALL  PARTN  (  [GBNK] ,  .  .  ,  [KBB] ,  [MPART]  )  ; 

[XBQB]  [QEB]  [KBB]  ; 

CALL  DSCOMP  (  [KBQS]  ,  [LKQ]  ,  [UKQ]  ) ; 

CALL  ROHPART  (  [GENF] .  [GFR] ,  [GFB] ,  [MPART]  ) ; 

CALL  GFBS  (  [LKQ]  .  [UKQ] ,  [GFE]  .  [BTBM]  )  ; 

[DBUI]  ‘[QRB]  «  [BTEM]  [GFR]; 

CALL  BLASTRIH  (BCID.  [DBIM]  ,  [MRR(BC)],  [URDB] ,  [DELB]  }  ; 

[BLASl  :«  [BTBM]  *  [DELS] ; 

[SLIMOD]  TRANS  (  [BLSTJA]  )  *  [PHIB]  ; 

CALL  BLASTDRV  (  BCID.  [GBNM] ,  [GENK]  ,  [GBNFA] ,  [GBNQL]  ,  [DELS]  , 
[URDB],  [DNNHSH],  [SLPMOD]  ,  [BIAS].  [UBLASTI]  ); 


BNDIF; 

BEGIN  THE  DATA  RECOVERY  OPERATIONS 
PRINr( "LOG-  ( *  DATA  RECOVERY* )  ■ )  ; 


$ 

9 

9 


19 


1429 

4! 

1430 

5! 

1431 

4! 

1432 

4! 

1433 

5!$ 

1434 

5!$ 

1435 

5!$ 

1435 

5!$ 

1437 

5! 

1438 

5! 

1439 

6! 

1440 

6! 

1441 

6! 

1442 

6! 

1443 

7! 

1444 

7! 

1445 

7! 

1445 

7! 

1447 

6! 

1448 

5! 

1449 

6! 

1450 

7! 

1451 

7! 

1452 

7! 

1453 

11% 

1454 

7!$ 

1455 

7!$ 

1456 

7!$ 

1457 

7! 

1458 

7! 

1459 

8! 

1460 

8! 

1461 

Bi 

1462 

8! 

1463 

8! 

1464 

7! 

1465 

8! 

1466 

8! 

1467 

8! 

1468 

8! 

1469 

8! 

1470 

8! 

1471 

8! 

1472 

7! 

1473 

6! 

1474 

5! 

1475 

6! 

1476 

6! 

1477 

6! 

1478 

6! 

1479 

5! 

1480 

6! 

1481 

6! 

1482 

6! 

1483 

6! 

1484 

5! 

1485 

6! 

1486 

6! 

1487 

6! 

1488 

6! 

1489 

5! 

1490 

5! 

1491 

6!$ 

1492 

€!$ 

1493 

€!$ 

1494 

6! 

1495 

6! 

1496 

7! 

1497 

7! 

1498 

7! 

1499 

8! 

1500 

7! 

1501 

6! 

1502 

7! 

1503 

8! 

1504 

8! 

1505 

8! 

1506 

8! 

1507 

8!$ 

1508 

8!$ 

1509 

8!$ 

1510 

8!$ 

1511 

8! 

1512 

8! 

1513 

9! 

1514 

9! 

1515 

9! 

1516 

9! 

1517 

8! 

1518 

9! 

IF  NUMOPTBC  >  I  CALL  NOLLHAT  <  [UP]  ,  [AF]  .  [PHIF]  ,  [UTRANF]  .  [UFR5QF]  . 
[UFXI ,  [AFX] ) ; 

IF  NBNDCOHD  >  1  CALL  WJLLMAT  (  [OAF]  ,  [taFI]  ,  [AAF]  ,  [AAFI]  )  ; 

IF  NGDR  <>  0  THEN 

$ 

DATA  RECOVERY  WITH  GDR  $ 

APPEND  THE  6DR-GENERATED  DOFS  TO  THE  F>SBT  $ 

$ 

PRINT  ( "LOG-  <  •  DYNAMIC  REDUCTION  RECOVERY  •  )  " )  ; 

IF  BLOAD  <>  0  THEN 

[UPODRl  [GSDBO(BC)l  "  [UAJ  ; 

CALL  ROMPART  (  [UA]  ,  [UJX] ,  ,  [PAJK]  )  ; 

CALL  ROWMBRGE  (  [UFX]  .  [UJIC]  ,  [DPCTR]  ,  [PFJK]  )  ; 

IF  MRSET  <>  0  THEN 

[AF6DR]  [GSUBO(BC)]  *  [AA] ; 

CALL  ROHPART  {  [AAI ,  [DJK]  .  ,  [PAJK]  )  ; 

CALL  ROHMBRGE  (  [AFX]  ,  [UJK] ,  [AFGDR] .  [PFJK]  )  ; 
f  BNDIF; 

ENDIF; 

IF  BSABRO  <>  0  THEN 
FOR  S  «  1  TO  SUB  DO 

[UF6DR]  [GSUBO(BC)]  *  [UAA(S)]; 

CALL  ROHPART  (  [UAA(S)1,  [UJK].  .  [PAJK]  }; 

CALL  ROWHBRGE  (  [UAFIMP]  .  [UJK]  .  [UFGOR]  ,  [PFJK]  )  ; 

$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE  $ 
MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY  $ 

$ 

CALL  SAEROHRG  (  BCZD.  S.  TRIMDATA.  [UAFX]  ,  [UAPIMP]  )  ; 

IF  NRSBT  <>  0  THEN 

[AFGDR]  [GSUBO(BC)]  *  [AAA(S)]; 

CALL  ROHPART  (  [AAA(S)].  [UJK].  .  [PAJK]  )  ; 

CALL  ROHMBRGE  (  [AAFTMP]  .  [UJK]  .  [AFGDR]  ,  [PFJK]  )  ; 

CALL  SAEROMRG  (  BCID.  S.  TRIMDATA,  [AAFX]  .  [AAFTMP]  )  ; 
BNDIF; 

IF  ABFLGtS)  THEN 

[UFGDR]  [GSUBO{BC)]  *  {UAAC(S)]; 

CALL  ROHPART  (  [UAAC(S)].  [UJK],  .  [PAJK]  ); 

CALL  ROHMBRGE  (  [UAFCX(S) )  .  [UJK],  [UFGDR).  [PFJK]  ); 

[AFGDR]  [GSUBO{BC)]  •  [AAAC(S)]; 

CALL  ROHPART  (  [AAAC(S)].  [UJK].  .  [PAJK]  ); 

CALL  ROHMERGB  (  [AAFCX(S)].  [UJK].  [AFGDR].  [PFJK]  }; 

BNDIF; 

BNDDO; 

ENDIF; 

IF  BMODBS  <>  0  THEN 

[UFGDR]  :>  (GSUBOCBC)]  *  [PHIA]  ; 

CALL  ROHPART  (  [PHIA] .  [DJK] .  .  [PAJK]  )  ; 

CALL  ROHMBRGE  (  [PHIF]  .  [UJK]  .  [UFGDR]  ,  [PFJK]  )  ; 

BNDIF; 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

[UFOJR]  [GSUBOCBO]  *  [UTRANA]  ; 

CALL  ROHPART  (  [UTRANA]  .  [UJK]  .  .  [PAJK]  )  ; 

CALL  ROWffiRGB  (  (UTRANF] .  [UJK]  .  [UFGDR]  .  [PFJK]  )  ; 

BNDIF; 

IP  BDPR  <>  0  OR  BMFR  <>  0  THEN 

[UFGDR]  :«  [GSUBO(BC)]  *  [UFRBQA]  ; 

CALL  ROHPART  (  [UFRBQA]  .  [UJK] .  .  [PAJK]  )  ; 

CALL  ROHMBRGE  (  [UFRBQF] .  [UJK] .  [UFGDR] .  [PFJK]  )  ; 

BNDIF; 

ELSE 

IP  NONIT  <>  0  THEN 

$ 

DATA  RECOVERY  HITH  STATIC  CONDENSATION  $ 

$ 

PRINT  ( "LOG-  ( '  STATIC  CONDENSATION  RECOVERY  •  )  -  >  ; 

IF  BLOAD  <>  0  THEN 

CALL  RBCOVA  (  [UA] .  [PO] .  (GSUBO(BC)).  NRSBT.  [AA]  . 

CIFMtBC]]  ..  .  [KOOINV(BC)  )  . .  [PFOAX(BC)]  .  [UFX]  )  ; 
IF  NRSBT  <>  0  CALL  RBCOVA  <  [AA]  .  .  [GSUBO  (BC) 

[PFOAX(BC)].  [AFX]  ); 

ENDIF; 

IF  BSABRO  <>  0  THEN 
FOR  S  -  1  TO  SUB  DO 


CALL  RBCOVA  (  [UAAiS)].  [PAO(S)].  [GASUBO(BC.S)  ] . 

NRSBT.  [AAA(S}].  [IFMA(BC.S) ] .  BSABRO. 
[KOOL(BC.S)].  [KOQU(BC.S}] . 

(PFOAX(BC)].  [UAFTMP]  }; 

$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE  $ 
MATRIX  OP  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY  $ 

$ 

CALL  SAEROMRG  (  BCID.  S.  TRIMDATA,  [UAFX],  [UAFTMP]  ); 

IF  NRSBT  <>  0  THEN 


CALL  RBCOVA  (  [AAA(S)  ]  . .  [GASUBO(BC.  S)  ] . 

[PFQAX(BC)].  [AAFTMP]); 

CALL  SAEROHRG  (  BCID,  S.  TRIMDATA.  [AAFX].  [AAFTMP]  ); 
BNDIF; 

IF  ABFLG(S}  THEN 

CALL  RBCOVA  (  (UAAC(S)].  [PAOC(S)l.  [GASDBO(BC,  S)  ] . 


20 


1519 

9! 

NRSET,  IAAAC(S)J,  [IFMA (BC, S) 1 , 

BSAERO, 

1520 

9! 

(KOOL(BC,S) J  .  IK00U{BC,S}] , 

1521 

9! 

tPFOA(BC)l,  (tlAFCX(S)l  ); 

1S22 

91 

CALL  RBCOVA  (  tAAAC{S) ] . , (GASUBO (BC, S) , 

1523 

9! 

[PFOA(BC) 1 ,  [AAFCX (S) ] ) ; 

1524 

9! 

ENDIF; 

1525 

8! 

EKDDO; 

1526 

7! 

BNDIF; 

1527 

6! 

IF  BMODES  <>  0  THEN 

1528 

7! 

[PHIOl  ;»  tGSDBO(BC>l  *  [PHIA]  ; 

1529 

7! 

CALL  ROHMERGE  (  [PKIF]  .  [PHIO]  ,  [PHIA],  {PFOAX{BC)] 

); 

1530 

7! 

ENDIF; 

1531 

6! 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

1532 

7! 

CALL  RBCOVA  (  [UTRANA)  ,  ,  fGSOBOCBC)  1  , 

1533 

7! 

[PPOAX(BC)],  {UTRANF]  }; 

1534 

11 

ENDIF; 

1535 

6! 

IP  BDFR  <>  0  OR  BNFR  <>  0  THEN 

1536 

7! 

^  CALL  RECOVA  (  lUFREQA]  ,  ,  (6SDB0  (BC) 

1537 

71 

[PFOAX (BC) 1 .  tUPREQFl  ) ; 

1538 

71 

ENDIF; 

1539 

6! 

ELSE 

1540 

6!$ 

1541 

61$ 

DATA  RECOVERY  WITHOUT  P-SBT  REDUCTION 

1542 

61$ 

1543 

6! 

IF  BLOAD  <>  0  THEN 

1544 

7! 

(UFX)  : »  tUA]  ; 

1545 

7! 

IP  NRSET  <>  0  [AFXl  :»  [AA]  ; 

1546 

7! 

ENDIF; 

1547 

6! 

IF  BSAERO  <>  0  THEN 

1548 

7! 

FOR  S  -  1  TO  SUB  DO 

1549 

8!$ 

1550 

8!$ 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO 

A  SINGLE 

1551 

8!$ 

MATRIX  OF  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

1552 

8!$ 

1553 

8! 

CALL  SAEROMRG  (  BCID,  S,  TRIMDATA.  (UAFX],  (UAA(S)]  ); 

1554 

8! 

IF  NRSET  <>  0 

1555 

9! 

CALL  SAEROMRG  (  BCID,  S.  TRIMDATA,  [AAFX]  ,  [AAA(S)]  ); 

1556 

8! 

IF  ABFLG(S)  THEN 

1557 

9! 

(UAFCX(S}]  :«  [QAAC(S}]; 

1558 

9! 

tAAFCX(S)]  (AAAC(S)]; 

1559 

9! 

ENDIF; 

1560 

8! 

ENDDO; 

1561 

7! 

ENDIF; 

1562 

6! 

IP  BMODES  <>  0  [PKIF]  [PHIA]; 

1563 

6! 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANF]  :>  [UTRANA]  ; 

1564 

6! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFRBQP]  [UFREQA]  ; 

1565 

61 

BNDIF; 

1566 

5! 

ENDIF; 

1567 

4!$ 

1568 

4! 

IF  SYKIRN{BC)  THEN 

1569 

5! 

IP  BLOAD  <>  0  THEN 

1570 

6! 

[OF]  tHFRBAL(BC)l  *  [UFX] ; 

1571 

6! 

IF  NRSET  <>  0  [AF]  [HFRSAL(BC}]  •  [AFX]; 

1572 

6! 

BNDIF; 

1573 

5! 

IF  BSAERO  <>  0  THEN 

1574 

6! 

[UAF]  (HFRKAL(BC)J  *  [UAPX] ; 

1575 

6! 

[UAFI]  tHFIMAG(BC)]  *  [UAFX]  ; 

1576 

6! 

IF  NRSET  <>  0  [AAF]  ;«  (HFRBAL(BC)]  *  [AAFX]; 

1577 

6* 

IP  NRSET  <>  0  [AAFI]  :•  [HFIMAG(BC)]  *  [AAFX]; 

1578 

6! 

FOR  S  •  1  TO  SUB  DO 

1579 

7! 

IF  ABFLS(S)  THEN 

1580 

8! 

tUAFC{S)l  tHFRBAL(BC)]  *  [UAFCX  (S>  ]  ; 

1581 

8! 

(UAFCI(S)l  :«  [HFIMAGCBO]  •  [UAFCX  (S)J; 

1582 

8! 

[AAFC(S}]  [HFREAL(BC)]  *  [AAPCX(S)]; 

1583 

8! 

[AAFCKS}]  :«  (RFIKAS(BC)l  *  [AAPCX(S)]; 

1584 

8! 

ENDIF; 

1585 

7! 

ENDDO; 

1586 

6! 

ENDIF; 

1587 

5! 

ELSE 

1588 

5! 

IF  BLOAD  <>  0  THEN 

1589 

6! 

[UF]  :»  [UFXl; 

1590 

6! 

IP  NRSET  <>  0  [AF]  [AFX]; 

1591 

6! 

BNDIF; 

1592 

5! 

IF  BSAERO  <>  0  THEN 

1593 

6! 

[OAF]  : -  [UAFX] ; 

1594 

6! 

IF  NRSET  <>  0  [AAF]  [AAFX]; 

1595 

6! 

FOR  S  «  1  TO  SUB  DO 

1596 

7! 

IF  ABFLGIS)  THEN 

1597 

8! 

[UAFC(S))  :«  [UAFCX (S)]; 

1598 

8! 

IAAFC(S}]  :«  [AAFCX(S)]; 

1599 

8! 

ENDIF; 

1600 

7! 

ENDDO; 

1601 

6! 

BNDIF; 

1602 

5! 

ENDIF; 

1603 

4!$ 

1604 

4! 

IF  NUMOPTBC  >  1  CALL  NULLMAT  (  [UN]  .  [AN]  ,  [PHIN]  )  ; 

1605 

4! 

IF  NSPC  <>  0  THEN 

1606 

5!$ 

1607 

S!$ 

DATA  RECOVERY  WITH  SPC-RBDUCTION 

1608 

5!$ 
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1809 

5! 

1610 

5! 

1611 

6! 

1612 

6! 

1613 

6! 

1614 

6! 

1615 

6! 

1616 

6! 

1617 

6! 

1618 

5! 

1619 

6! 

1620 

6! 

1621 

6!  • 

1622 

7! 

1623 

7! 

1624 

71 

1625 

6! 

1626 

7! 

1627 

8! 

1628 

8! 

1629 

8! 

1630 

9! 

1631 

9! 

1632 

9» 

1633 

9! 

1634 

8! 

1635 

7! 

1636 

6! 

1637 

5! 

1638 

6! 

1639 

6! 

1640 

6! 

1641 

7! 

1642 

7! 

1643 

7! 

1644 

7! 

1645 

6! 

1646 

5! 

1647 

6! 

1648 

6! 

1649 

5! 

1650 

6! 

1651 

6! 

1652 

5! 

1653 

6! 

1654 

6! 

1655 

6! 

1656 

6! 

1657 

6! 

1658 

5! 

1659 

S!$ 

1660 

S!$ 

1661 

S!$ 

1662 

5! 

1663 

6! 

1664 

6! 

1665 

6! 

1666 

5! 

1667 

6! 

1668 

6! 

1669 

6! 

1670 

7! 

1671 

7! 

1672 

7! 

1673 

6! 

1674 

7! 

1675 

8! 

1676 

8! 

1677 

8! 

1678 

9! 

1679 

9! 

1680 

9! 

1681 

8! 

1682 

7! 

1683 

6! 

1684 

5! 

1685 

5! 

1686 

5! 

1687 

5! 

1688 

4!$ 

1689 

4! 

1690 

5! 

1691 

5! 

1692 

4!$ 

1693 

4! 

1694 

5!$ 

1695 

S!$ 

1696 

5!S 

1697 

5! 

1698 

5! 

PRIllT(''LOG-(*  SPC  RECOVERY* )")  ; 

ZP  BLOAD  <>  0  THEN 

CALL  YSMERGE  (  [UN] ,  (YS (BC) ] ,  [OFl .  tPNSF (BC) ]  ) ; 

CALL  OFPSPCP  (  NITER.  BCZD,  I,  1.  GSIZE.  ESIZB{BC).  NGDR, 

[KFSl,  [KSS] ,  [UFI,  [YS(BC)1,  [PSJ . 

[PNSF(BC)],  [FGMNtBOl.  (PFJX]  ,  .  ,  . 

BGPDTCBC) .  OGRZOLOD  ) ; 

IP  NRSET  <>  0  CALL  YSMERGE  (  [AN),  ,  [AF] ,  [PNSF{BC))  ); 

EMDIF; 

IP  BSAERO  <>  0  THEN 

CALL  YSMERGE  (  [UAN] ,  tYS(BC}],  {GAP],  [PHSF(BC}]  ); 

IF  NRSET  <>  0  CALL  YSMERGE  (  [AAN) ,  ,  [AAF]  ,  (PNSP(BC)]  ); 

IF  SYMTRN(BC)  THEN 

CALL  YSMERGE  (  [UANI] ,  [YS(BC>).  [GAFIl ,  [PNSP{BC)]  ); 

IF  NRSET  <>  0  CALL  YSMERGE  (  [AANI]  ,  ,  [AAFI]  ,  (PNSP(BC)}  }; 
BNDIF; 

FOR  S  «  X  TO  SOB  DO 
IP  ABFL6(S)  THEN 

CALL  YSMERGE  ( (UANC(S) ) ,  [YS (BC) ) ,  (UAFC (S) ) .  [PNSP{BC) J ) ; 
CALL  YSMERGE  ( [AANC (S) ] ,  ,  [AAFC (S ) ] ,  [PNSF (BC) 1 ) ; 

IF  SYMTRN(BC)  THEN 

CALL  YSMERGE  ([UANCKS}],  (YS(BC)],  COAFCKS)], 
[PNSF(BC}1) ; 

CALL  YSMERGE  ( [AANCI (S) ] ,  .  [AAPCI (S) ] ,  (PNSF (BC) } ) ; 
ENDIF; 

EKDIF; 


ENDIF ; 

IP  BMODES  <>  0  THEN 

CALL  YSMERGE  (  (PHIN) ,  [YS(BC)].  [PHIP] . 

[PNSF(BC)1  ); 

IP  DMODBS  <>  0  CALL  OPPSPCF  (  NITER.  BCID,  2.  1.  GSIZE, 

BSIZE(BC),  NGDR, 

(KFSJ ,  ,  [PHIF] ,  ,  . 

(PNSF{BC)},  [PGMN(BC>],  [PFJK] , 
.  ,  ,  BGPDT(BC) ,  OGRIDLOD  )  ; 

SHOZP; 

IP  BDTR  <>  0  OR  BMTR  <>  0 

CALL  YSMERGE  (  (OTRANN) ,  [YS (BC) } ,  (UTRANF] . 
(PNSP(BC)],  BOTH  ); 

IP  BDFR  <>  0  OR  BMFR  <>  0 

CALL  YSMERGE  (  tOFRBQN] ,  [YS (BC) ) ,  [UFRBQF] , 
[PNSF(BC)],  BDFR  ); 

IF  BBLAST  <>  0  THEN 

[OBLASTF]  (PHIPl*(tJBLASTIl  ; 

CALL  OFPSPCP  (  NITER,  BCID.  8,  X,  GSIZE,  ESIZB(BC),  NGDR. 

[KPS],  .  [OBLASTF].  ,  ,  [PNSP(BC)].  [PGMN(BC)]. 
[PFJK],  ,  ,  ,  BGPDT(BC),  OGRIDLOD  ); 


DATA  RECOVERY  WITHOOT  SPC-REDOCTION  $ 

$ 

IP  BLOAD  <>  0  THEN 
[ON]  :•  [tJFl; 

IF  NRSET  <>  0  [AN]  [AF]  ; 

ENDIF; 

IP  BSAERO  <>  0  THEN 
[OAN]  :»  [OAF]; 

IF  NRSET  <>  0  [AAN]  ;«  [AAF]  ; 

IP  SYMTRN(BC)  THEN 
[OANI]  :*  [OAF!]; 

IF  NRSET  <>  0  [AANI]  :«  [AAFI]  ; 

ENDIF; 

FOR  S  .  1  TO  SOB  DO 
IF  ABPLG(S)  THEN 

[OANC(S)]  [UAFC(S)]; 

[AANC(S)]  [AAPC(S)]; 

IP  SYMrRN(BC)  THEN 

[OANCKS)]  [OAFCI(S)}; 

[AANCI  (S)  I  (AAFCKS)]; 

ENDIF, - 
BNDIF; 

BNDDO; 


ENDIF; 

IP  BMODES  <>  0  [PHIN]  : «  [PHIF] ; 

IP  BDTR  <>  0  OR  BKIR  <>  0  [OTRANN]  (UTRANAl  ; 

IF  BDFR  <>  0  OR  BMFR  <>  0  [OFRBQN]  [OFRBQA]  ; 

ENDIF; 


IP  NOMOPTBC  >  1  CALL  NOLLMAT 


IP  NMPC  c>  0  THEN 


$ 

[OG(BC)].  [AG(BC)],  [OAG(BC)l, 

[AAG(BC)],  [PHIG(BC)],  [OAGI  (BC)  ]  , 
(AAGKBC)]  ); 

S 


$ 

DATA  RECOVERY  WITH  MPC-REDUCTION  $ 

$ 

PR1NT(''L0G«(»  MPC  RECOVERY*)*)  ; 

IP  BLOAD  <>  0  THEN 
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1699 

6! 

{OMl  :*  ITMN{BC)1  *  [UN]  ; 

1700 

6! 

CALL  ROWHERGB  (  [WJ{BC)  1  ,  [DM],  [UN],  [PGMN(BC)]  ); 

1701 

6! 

IF  NRSBT  <>  0  THEN 

1702 

7! 

[UM]  ;»  [TtOKBC)]  *  [AN]  ; 

1703 

7! 

CALL  ROWMBRGE  {  lAG(BC)],  [UM]  ,  [AN],  [PGMN(BC)]  ); 

1704 

7! 

ENDIF; 

1705 

6! 

ENDIF; 

1706 

5! 

IF  BSAERO  <>  0  THEN 

1707 

6> 

[UMJ  [TMN[BC))  *  [UANl  ; 

1708 

6! 

CALL  ROWMBRGE  (  tnAO(BC)].  [UM]  ,  [UAN]  ,  [PGMN{BC)]  ); 

1709 

6! 

IP  NRSBT  <>  0  THEN 

1710 

7! 

[UM]  :»  [TMN(BC)1  *  [AAN]  ; 

1711 

7! 

CALL  R0HMER6B  {  [AAG(BC)],  [UM]  ,  [AAN],  [PGMN(BC)1  ); 

1712 

7! 

ENDIF, - 

1713 

6! 

IP  SYMTRN(BC)  THEN 

1714 

7! 

[UM]  :»  [TMN{BC)1  *  [UANI]  ; 

1715 

7! 

CALL  ROHMERGB  (  [UA6I  (BC)  1  ,  [UM]  ,  [UANI]  .  [PGMN[BC)  ]  )  ; 

1716 

7> 

IF  NRSBT  <>  0  THEN 

1717 

8! 

[UM]  I*  [TMNtBOl  *  [AANIl; 

1718 

8! 

CALL  ROWMBRGE  (  [AAGI  (BC)  ]  ,  [UM]  ,  [AANI]  ,  [PGMN(BC)1  ); 

1719 

8! 

ENDIF; 

1720 

7! 

ENDIF; 

1721 

6! 

FOR  S  -  1  TO  SOB  DO 

1722 

7! 

IF  AEFLGCS)  THEN 

1723 

8! 

[DM]  I-  [TMM(BC)]  *  [UANC(S)1; 

1724 

8t 

CALL  ROHMERGB  ( [UAGC(BC.  S)  ]  ,  [UM]  ,  [UANC(S)],  (PGMN(BC)  ]  )  ; 

1725 

8! 

[UM]  :«  [TMN{BC)1  *  (AANC(S)l; 

1726 

8! 

CALL  ROWMBRGE  ( [AAGC(BC, S) ] ,  [UM] .  (AANC(S)),  [PGMN{BC))); 

1727 

8! 

IF  SYNTRN(BC)  THEN 

1728 

9! 

[DM]  :»  [TMN(BC)]  ♦  [UANCKS)]; 

1729 

9! 

CALL  ROHMERGB  (  (UAGCI  (BC,  S)  ]  ,  [UM]  ,  [UANCI  (S )  ]  , 

1730 

9! 

(PGMN(BC)  ]  )  ; 

1731 

9! 

[UM]  (TMN(BC)l  *  [AANCKS)]; 

1732 

9! 

CALL  ROHMERGB  ( [AAGCI (BC, S) ] ,  [UM] ,  [AANCI (S)  ]  , 

1733 

9! 

[PGMN(BC)}}  ; 

1734 

9! 

ENDIF; 

1735 

8! 

ENDIF; 

1736 

7! 

ENDDO; 

1737 

6! 

ENDIF; 

1738 

S! 

IF  BMODBS  <>  0  THEN 

1739 

6! 

[OMl  (TMN(BC)l  *  [PHIN] ; 

1740 

6! 

CALL  ROHMERGB  (  (PHIG(BC)],  [UM]  ,  [PHIN],  [PGMN(BC)]  ); 

1741 

6! 

ENDIF; 

1742 

5' 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

1743 

6! 

[UM]  {TMN(BC)]  *  [DTRANN]  ; 

1744 

61 

CALL  ROWMBRGE  (  [UTRANG]  ,  [UM]  ,  [UTRANN]  ,  [PGMN(BC)  ]  )  ; 

1745 

6! 

ENDIF; 

1746 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  THEN 

1747 

6! 

[UM]  [TMN(BC)J  ♦  [UPREQN]  ; 

1748 

6! 

CALL  ROHMERGB  (  [UFRBQG]  ,  [UM]  ,  [UPRBQN]  ,  [PGMN(BC)]  ); 

1749 

6! 

BNDIF; 

1750 

5! 

BLSB  ! 

1751 

S!$ 

$ 

1752 

S!$ 

DATA  RECOVERY  WITHOUT  MPC- REDUCTION  $ 

1753 

5!$ 

$ 

1754 

5! 

IF  BLQAD  <>  0  THEN 

1755 

6! 

[OG(BC)]  [UN]; 

1756 

6! 

IF  NRSBT  <>  0  [AG(BC)]  [AN]  ; 

1757 

6! 

ENDIF; 

1758 

5! 

IF  BSAERO  <>  0  THEN 

1759 

6! 

[UAG(BC)]  :«  [UAN]; 

1760 

6! 

IF  HRSET  <>  0  {AAG(BC)1  [AAN]  ; 

1761 

6! 

IF  SYKrRN(BC)  THEN 

1762 

7! 

CUAGI(BC)]  [UANI]; 

1763 

7! 

IF  NRSBT  <>  0  [AAGKBO]  :>  [AANI]; 

1764 

7! 

ENDIF; 

1765 

6! 

FOR  S  «  1  TO  SUB  DO 

1766 

7' 

IF  ABFLG(S}  THEN 

1767 

8! 

(UAGCtBC.S)}  (UANC(S)  ]  ; 

1768 

8! 

(AAGC(BC.S)]  :*  [AANC(S)  ]  ; 

1769 

8! 

IF  SYMIRN(BC)  THEN 

1770 

9! 

[UAGCI  (BC,S)]  [UANCKS)]; 

1771 

9! 

[AAGCI [BC,S)]  ;»  [AANCI (S)]; 

1772 

9! 

ENDIF; 

1773 

8! 

BNDIF; 

1774 

7! 

ENDDO; 

1775 

6! 

BNDIF; 

1776 

5! 

IF  BMODBS  <>  0  (PRIG(BC}1  [PHIN] ; 

1777 

5! 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANG]  :«  [UTRANN]; 

1778 

5! 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFREQG]  :>  [UFRBQN]  ; 

1779 

5! 

ENDIF;  ! 

1780 

4!$ 

$! 

1781 

4!$ 

RECOVER  PHYSICAL  BLAST  DISCIPLINE  DISPLACEMENTS  $! 

1782 

4!$ 

1783 

4! 

IP 

BBLAST  <>  0  [UBLASTG]  CPHIG(BC)]  *  [UBLASTI] ;  ! 

1784 

4!$ 

$! 

1785 

4!$ 

PERFORM  CONSTRAINT  EVALUATION  FOR  STATIC  DISCIPLINES  $! 

1786 

4!$ 

$! 

1787 

4! 

PRINT C*LOG«('  CONSTRAINT  EVALUATION*)");  ! 

1788 

4! 

IF 

BLOAD  <>  0  THEN  ! 
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1789 

5! 

CALL  DCEVAL  (  NITER,  BCID,  (UG(BC)],  BGPDT(BC)  ,  CONST  ); 

1790 

5! 

CALL  SCBVAL  (  NITER,  BCID,  (OG(BC}],  [SMAT}  .  tNLSMAT]  .  SMATCOL, 

1791 

5! 

NLSMTCOL,  TRBP,  TRBPD,  {GLBSIG] , 

1792 

5! 

[NL6LBSIG],  CONST  ); 

1793 

5! 

BNDIP; 

1794 

4! 

IF  BSAERO  <>  0  THEN 

1795 

5! 

CALL  DCEVAL  (  NITER,  BCID,  lUAG(BC)],  B6PDT(BC)  .  CONST,  BSAERO, 

1796 

5! 

TRIKDATA,  [UAGI  (BC)  ]  )  ; 

1797 

5! 

CALL  SCEVAL  (  NITER,  BCID,  [UA6(BC)],  [SNAT]  ,  [NLSMAT]  ,  SHATCOL, 

1798 

5! 

NLSMTCOL,  TREP,  TRBPD,  [GLBSIG], 

1799 

5! 

[NL6LBSIG],  CONST.  BSAERO.  TRIMDATA, 

1800 

5! 

[UAGKBOl,  [GLBSIGI],  [NLGBSIGI]  )  ; 

1801 

5! 

BNDIP; 

1802 

4!$ 

$! 

1803 

4!$ 

HANDLE  OUTPUT  REQUESTS 

$! 

1804 

4!$ 

$! 

1805 

4! 

PRINTCLOG*{'  OUTPUT  PROCESSING')")  ; 

1806 

4! 

^F  BSAERO  <>  0  THEN 

1807 

5!$ 

$! 

1808 

5!$ 

RECOVER  STATIC  ABROELASTIC  LOADS  DATA 

$! 

1809 

5!$ 

S! 

1810 

5! 

LOOP  :«  TRUE; 

1811 

5! 

SUB  :«  0; 

1812 

5! 

NHILE  LOOP  DO 

1813 

6! 

SUB  !»  SUB  +  1; 

1814 

6! 

CALL  SABRODRV  (BCID,  SUB,  LOOP.  MINDEX,  SYN,  MACH,  QDP, 

1815 

6! 

TRIMDATA,  TRIMRSLT,  METHOD  ) ; 

1816 

6!$ 

$! 

1817 

6!$ 

CALL  THE  TRIMMED  LOADS  COMPUTATION  WITH  PROPER  MATRICES 

1818 

6!$ 

$! 

1819 

6! 

IF  SYM  »  1  THEN 

1820 

7! 

CALL  OPPALQAD  (  NITER,  BCID,  MINDEX,  SUB.  GSIZE,  TRIMDATA, 

1821 

7! 

B6PDT(BC), 

1822 

7! 

[GPTKG],  [GTKG],  [GSTKG]  .  QDP,  [SAROLQAD] , 

1823 

7! 

(DELTA(SUB)] .  [AIC] , 

1824 

7» 

(UAG(BC)},  IMGG],  [AAG(BC)1,  [KPS], 

1825 

7! 

[KSS],  [UAF],  [YS(BC)].  [FNSF(BC)]. 

1826 

7! 

[PGMN(BC)],  IPFJK],  NGDR,  USET(BC)  . 

1827 

7! 

OQtlDLOD  }; 

1828 

7! 

ELSE 

1829 

7! 

IP  SYM  «  -1  THEN 

1830 

8! 

CALL  OPPALQAD  (  NITER,  BCID,  MINDEX,  SUB,  GSIZE,  TRIMDATA, 

1831 

8! 

BGPDT(BC) . 

1832 

8! 

(6PTKG1,  [GTKG],  [GSTKG],  QDP,  [SAROLQAD], 

1833 

8! 

[DBLTA(SUB)],  [AAIC]  . 

1834 

8! 

tnAG(BC)],  [HGGl,  [AAG(BC)1,  [KPS], 

1835 

8! 

[KSS],  [UAF],  [YS(BC)],  [PHSP(BC)], 

1836 

8! 

[PGMN(BC)),  [PPJK],  NGDR,  USBT(BC)  , 

1837 

8! 

06RIDL0D  ) ; 

1838 

8! 

ELSE 

1839 

8! 

IF  SYM  -  0  THEN 

1840 

9! 

CALL  OPPALQAD  (  NITER,  BCID,  MINDEX,  SUB,  GSIZE, 

1841 

9! 

TRIMDATA.  BGPDT(BC) , 

1842 

9! 

[GPTKG]  ,  [GTKG]  ,  [GSTKG]  .  QDP.  [SAROLQAD]  , 

1843 

9! 

[DELTA (SUB)  ]  ,  [ASAIC] , 

1844 

9! 

[UAG(BC)I,  [MGG],  [AAG(BC)],  [KPS], 

1845 

9! 

[KSS],  [UAF],  [YS(BC)),  (PNSP(BC)], 

1846 

9! 

[PGMN(BC)].  [PPJK],  NGDR,  USBT(BC)  , 

1847 

9! 

06RIDL0D  ); 

1848 

9! 

BNDIP; 

1849 

8! 

BNDZP; 

1850 

7! 

BNDIF; 

1851 

6!$ 

$! 

1852 

6!$ 

CALL  TO  COMPUTE  THE  IRimSD  LOADS /DISPLACEMENTS  ON  THE 

$! 

1853 

6!$ 

AERODYNAMIC  MODEL 

1854 

6!$ 

$I 

1855 

6! 

IP  SYM  -  1  THEN 

1856 

7! 

CALL  OFPAERON  (  NITER,  BCID,  MINDEX,  SUB,  GSIZE,  SAGBOM, 

! 

1857 

7! 

TRIMDATA, 

1858 

7! 

[GTXG],  [GSTKG],  QDP,  [SAROLQAD], 

1859 

7! 

[DBLTA(SUB)],  [AIC], 

1860 

7! 

[UAG(BC)],  OAGRDLOD,  OAGRDDSP  ); 

1861 

7! 

ELSE 

1862 

7! 

IP  SYM  -  -1  THEN 

1863 

8! 

CALL  OPPAEROM  (  NITER,  BCID,  MINDEX,  SX7B.  GSIZE,  SAGEOM, 

1864 

8! 

TRIMDATA, 

1865 

8! 

[GTKG],  [GSTKG],  QDP,  [SAROLOAD]  , 

1866 

8! 

[DKLTA(SOB)]  ,  [AAIC], 

1867 

8! 

[UAG(BC)],  OAGRDLOD,  OAGRDDSP  )  ; 

1868 

8! 

ELSE 

1869 

8! 

IP  SYM  •  0  THEN 

1870 

9! 

CALL  OPPAEROM  (  NITER,  BCID,  MINDEX,  SUB.  GSIZE, 

1871 

9! 

SAGBOM,  TRIMDATA, 

1872 

9! 

[GTXG]  ,  [GSTKG]  ,  QDP,  [SAROLOAD]  , 

1873 

9! 

[DBLTA(SUB)],  [ASAIC], 

1874 

9! 

[UAG(BC)].  OAGRDLOD.  OAGRDDSP  ); 

1875 

9! 

BHDIF; 

1876 

8! 

BNDIP; 

1877 

7! 

BNDIP; 

! 

1878 

6! 

BNDDO; 
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1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 


5! 

4! 

5! 

5! 

5! 

s: 

6! 

6! 

6! 

6! 

6! 

5! 

6! 

6! 

6! 


4!$ 

4!$ 

4!$ 

4! 

3!$ 

3!$ 

3!$ 

3! 

3! 

3! 

3! 

3! 

3! 

3!$ 

3! 

4!$ 

4!$ 

4!$ 


5! 

5! 

5! 

5! 

5! 

5! 

4! 

4! 

4! 

4! 

4! 


3!$ 

3! 

4!$ 

4!$ 

4!$ 

4! 

5! 

5! 

5! 

S' 

5! 

4!$ 

4! 

5! 

S'$ 

S!$ 

S!$ 

5!$ 

5!$ 

S!$ 

5! 

5! 

5! 


ENDIP;  ■ 

IP  BDRSP  <>  0  THEN  • 

CALL  OFPDLOAD  (  NITER,  BCID,  BGPDT(BC)  ,  PSIZE  (BC)  ,  ESIZE(BC)  ,  ! 

[PHIG(BC)1,  [PTGLOAD] ,  tPTHLOAD] ,  [PFGLOADl  ,  ! 

IPPHLOADJ  .  OGRIDLOD  )  ;  '■ 

IP  BDTR  <>  0  OR  BMTR  <>  0  ■ 

CALL  OPPSPCP  {  NITER,  BCID,  5,  1,  GSIZE,  ESIZE{BC)  .  ! 

NGDR,  tKPSl,  ,  IDTRANPl,  ,  .  ! 

[PNSPtBOI,  IPGMN{BC)1,  [PFJKl  .  1 

[PHIG(BC)1,  [PTGLOAD],  [PTHLOAD]  ,  ! 

BGPDTCBC),  OGRIDLOD  );  ! 

IP  BDFR  <>  0  OR  BMFR  <>  0  ■ 

CALL  OPPSPCP  (  NITER,  BCID,  6,  2,  GSIZE,  ESIZB(BC)  ,  ! 

NGDR,  [KPS] .  ,  [UFREQP] ,  ,  ,  ! 

{PNSF(BC)3,  [PGMN(BC)1,  [PPJK]  ,  ! 

[PHIGCBO],  [PFGLOADl.  [PPHLOAD]  ,  ! 

BGPDT<BC).  OGRIDLOD  );  I 

^IP;  • 

CALL  OFFLOAD  (  BCID,  NITER,  GSIZE,  BGPDT(BC)  ,  PSIZE  (BC)  ,  I 

[PGJ  )  J 

CALL  OPPDISP  (  BCID,  NITER,  GSIZE.  BGPDT(BC) ,  BSIZB (BC) ,  ! 

PSIZE  (BC)  ,  OGRIODSP,  (OG(BC)  1  ,  [AG(BC}  1  ,  [aAG(BC)  ]  , 
[AAGCBOl,  [OBLASTGI,  .  [OTRANG]  ,  [DTRANE] .  [UFRBQGl ,  ! 

(DPREQBI,  LAMBDA,  [PHIG(BC)),  ,  SWTRNCBC) ,  [DAGI  (BC)  ] ,  ! 
[AAGKBO]  };  ! 

CALL  BDR  (  BCID,  NITER,  NDV,  GSIZE,  BOSOWffiY,  EODISC,  ! 

GLBDBS,  LOCLVAR.  [PTRANS] ,  ! 

[UG(BC)1.  [UAG{BC)1.  ,  (ITTRANGl  .  [UPRBQGJ  ,  [PHIG(BC)1,  ! 

,  SYMTRN(BC).  [OAGI  (BC)  I  );  I 

CALL  PBKLEVAL  (  BCID,  NITER,  NDV.  GLBDBS,  LOCLVAR,  [PTRANS],  CONST,  ! 

PDLIST.  OPNLBDCK  ) ;  ! 

CALL  EBKLBVAL  (  BCID,  NITER,  NDV,  GLBDBS,  LOCLVAR,  (PTRANS],  CONST,  ! 

FDSTBP,  OBULBUCK  ) ;  ! 

CALL  OFPEDR  (  BCID.  HSIZB(BC)  ,  NITER,  SYKrRN(BC)  );  ! 

$! 

. $! 

$! 

BNDDO;  ' 

$! 

SELECT  ACTIVE  CONSTRAINTS  $  ! 

$I 

CALL  FHBVAL  (  NITER.  CONST  )  ,-  ! 

PRINT  ( -LOG-  ( '  CONSTRAINT  SCREENING* ) " )  ;  ! 

CALL  WOBJGRAD  (  NITER,  NDV,  GLBDBS,  DNGBl,  DDW6H2  )  ;  ! 

CALL  ACTCON  (  NITER.  MAXITBR,  NRFAC,  NDV,  BPS,  APPCNVRG,  GLBCNVRG,  ! 

CTL,  CTLMIN,  CONST,  [AMATJ ,  DBSHIST,  PPLAG  );  ! 

CALL  DESPONCH  (  NITER,  PPLAG,  OLOCALDV  )  ;  ! 

$! 

IP  GLBCNVRG  OR  NITER  >  MAXITSR  THEN  ! 

$! 

LAST  ITERATION  OUTPUT  $! 

$! 

FOR  BC  «  1  TO  NUHOPTBC  DO  ! 

CALL  BCIDVAL  {  BC,  CASE,  BCID  )  ;  ! 

CALL  OFPMROOT  (  NITER,  BCID.  LAMBDA,  1  )  ;  I 

CALL  OPPDISP  {  BCID,  NITER,  GSIZE,  BGPDT(BC) ,  BSIZB (BC).  ! 

PSIZE (BC) ,  OGRIDDSP, ,,,,,,,,,, LAMBDA, , ,  ! 

.  .  ,  1  );  ' 

CALL  OFPEDR  (  BCID,  HSIZB(BC)  .  NITER,  SYMTRN{BC),  1  );  ! 


LASTTTER  :«  1; 

CALL  GDVPRINT  {  NITER,  NDV,  GLBDBS.  MOVLIM,  LASTITER,  GPRINT  )  ; 
CALL  CTVPUNCH  (  NITER,  NDV.  GLBDBS,  GPUNCH,  LASTITER  )  ; 

CALL  LDVLQAD  (  GLBDBS,  LOCLVAR,  [PTRANS],  OLOCALDV,  NITER,  NDV, 
LASTITER,  LOADLDV  )  ; 

CALL  U)VPRINT  (  OLOCALDV,  NITER,  LASTITER,  LPRINT  )  ; 

BNDIF; 

IF  NOT  GLBCNVRG  AND  NITER  <«  MAXITBR  THEN 

USB  APPROPRIATE  RESIZING  METHOD 

IF  MITER  »  FSDS  AMD  MITER  <*  FSOB  THEN 

PRINT  ( "LOG-  ( '  FULLY  STRESSED  DESIGN*  )*•},• 

CALL  PSD  (  NDV,  NITER,  FSDS,  FSDB,  MPS,  OCS,  ALPHA. 

CKVRGLIM,  GLBDBS,  LOCLVAR.  [PTRANS],  CONST, 
APPOIVRG,  CTL,  CTLMIN,  DBSHIST  }; 

ENDIP; 


IP  (  NITER  »  MPS  AMD  NITER  <>  MPS  )  OR 
(  NITER  >«  OCS  AND  NITER  OCS  )  THEN 

USB  MATHEMATICAL  PROGRAMMING  OR  OC  METHODS 

OBTAIN  THE  SBNSITIVmES  OP  THE  CONSTRAINTS  WRT  THE 
DESIGN  VARIABLES 


$! 

I 

$I 

$! 

$! 


$ 


$! 

$! 

$! 

$! 

$! 

$! 


PRINT  ( -LOG-  ( *  SENSITIVITY  ANALYSIS  * )  •  )  ;  ! 

CALL  GDVGRAD  (  NITER,  NDV.  CONST.  GLBDBS  )  ;  ! 

CALL  MSNGGRAD  (  NITER,  NDV.  GLBDBS,  DBSLINK,  CONST  );  ! 
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1969 

1970 

1971 

1972 

1973 

1974 

5! 

5! 

5! 

5! 

5! 

5!$ 

CALL  MAKDFV  (  NITER,  NDV,  [PHINTl  .  tPMAXT]  ,  CONST,  GLBDES, 

DBSLINK,  POSTER,  [AMATJ  )  ; 

CALL  MKDPDV  (  NITER,  NDV,  CONST,  DBSLINK,  GLBDES,  [AMATJ  )  ; 

CALL  LAMINSNS  (  NITER,  NDV,  GLBDES,  LOCLVAR,  [PTRANS]  ,  CONST. 

[AMATJ  ); 

$! 

1975 

5 !$*****< 

**** 

$! 

1976 

S!$ 

SENSITIVITY  EVALOATIOH  FOR  BODNDARY  CONDITION  DEPENDENT  CONSTRAINTS  $ ! 

1977 

r***« 

$! 

1978 

5!$ 

S! 

1979 

5! 

FOR  BC  «  1  TO  NDNOPTBC  DO 

1980 

6! 

CALL  BCIOVAL  (  BC,  CASE,  BCID  )  ; 

1981 

6! 

CALL  ABOUND  (  NITER,  BCID.  CONST,  NDV,  ACTBOOND,  NAUS,  NACSD, 

1982 

6! 

[PGAS],  PCAS,  PRAS,  ACTABRO.  ACIDYN,  ACTFLUT. 

1983 

6! 

ACTPNL.  ACTBAR,  NMPC,  NSPC,  NOMIT,  NRSET,  NGDR, 

1984 

6! 

USBT(BC)  ) ; 

1985 

6! 

IP  ACTBOUND  THEN 

1986 

7!$ 

$! 

1987 

7!$ 

REESTABLISH  THE  BASE  USBT  AND  PARTITIONING  DATA  FOR  THE  BC 

$! 

1988 

7!$ 

IF  GDR  CHANGED  IT 

$! 

1989 

7!$ 

NOTE,  THIS  LEAVES  AN  ZNOOMPATIBILITY  BBTHBEN  USBT(BC)  AND 

$! 

1990 

7!$ 

BGPDT(BC)  SINCE  THE  LATTER  IS  NOT  REGENERATED. 

$! 

1991 

7!$ 

THIS  INCOMPATIBILITY  WILL  NOT  AFFECT  THE  SENSITIVITY  ANALYSISS ! 

1992 

7J$ 

AND  HILL  BE  CORRECTED  IN  THE  SUBSEQUENT  ANALYSIS 

$! 

1993 

7!$ 

$! 

1994 

7! 

IP  NGDR  <>  0  THEN 

1995 

8! 

CALL  KKDSET (BCID.  GSIZEB,  [YS(BC)J,  [TMN(BC)J,  (PGMN(BC)], 

1996 

8! 

[PNSF(BC)].  [PFOA(BC)J,  [PARL(BC)].  USET(BC))j 

1997 

8! 

ENDIP; 

1998 

7!$ 

$! 

1999 

7!$ 

EVALUATE  FREQUENCY  CONSTRAINT  SENSITIVITIES 

$! 

2000 

7!$ 

$! 

2001 

7! 

IP  ACTDYN  THEN 

2002 

8! 

IP  N(3}R  <>  0  TEEN 

2003 

9! 

CALL  RONPART  (  [PBIG(BC)],  ,  (GTMPJ  ,  tPGDRG(BC)1  ); 

2004 

9! 

CALL  PREQSENS  (  NITHR,  BCID,  NDV,  GLBDES,  CONST,  LAMBDA.  • 

2005 

9! 

GNXCT,  DKVI,  G»!CT,  DMVI, 

! 

2006 

9! 

[GIMP],  [AMATJ  ); 

1 

2007 

9! 

ELSE 

• 

2008 

91 

CALL  FRBQSEKS  (  NITER,  BCID,  NDV.  GLBDES,  CONST.  LAMBDA.  ! 

2009 

9! 

GMKCT.  DKVI,  GfWCT,  DMVI, 

2010 

9! 

[PHI6(BC)1,  [AMATJ  ) ; 

2011 

9! 

ENDIP; 

2012 

8! 

ENDIP; 

2013 

7!$ 

$! 

2014 

7!$ 

EVALUATE  FLUTTER  CONSTRAINT  SENSITIVITIBS 

$! 

2015 

7!$ 

$! 

2016 

7! 

IP  ACTFLUT  THEN 

2017 

8! 

SUBF  : B  0 ; 

2018 

8! 

LOOP  TRUE; 

2019 

8! 

IF  NGDR  <>  0  CALL  ROHPART  (  [PHI6(BC>  J  . ,  [GIMP] .  [PGDRG(BC)  1  ) 

-  ! 

2020 

8! 

WHILE  LOOP  DO 

2021 

9! 

SUBF  :•  SUBF  1; 

2022 

9! 

IF  NGDR  <>  0  THEN 

2023 

10! 

CALL  FLUTSENS  (NITER.  BCID,  SUBF.  LOOP,  GSIZEB.  NDV, 

2024 

10! 

GXaOBS.  CONST,  GMKCT,  DKVI,  GWICT. 

2025 

10! 

DMVI,  CLAMBDA,  LAMBDA, 

2026 

10! 

[QHRLFLCBC.SUBP)  J . 

2027 

10! 

[MHHPL  (BC,  SUBF)  J  ,  [BHHFL  (BC,  SUBF)  ]  , 

2028 

10! 

[KHHFL  (BC.  SUBF)  J  .  [GTMPJ  .  [AMATJ  )  ; 

2029 

10! 

ELSE 

2030 

10! 

CALL  FLUTSENS  (NITER,  BCID,  SUBF.  LOOP,  GSIZEB,  NDV, 

2031 

10! 

GLBDES,  CONST.  GMKCT,  DKVI,  GmCT, 

2032 

10! 

DMVI,  CLAMBDA,  LAMBDA, 

2033 

10! 

[QHHLFL(BC.SUBF)J. 

2034 

10! 

[NHHFL(BC.SUBF)J  .  (BHHFL  (BC.  SUBF)  1 , 

2035 

10! 

[KHHFL  (BC.  SUBF)  J  .  [PHIG  (BC)  ]  ,  [AMATJ  ) 

;  ! 

2036 

10! 

ENDIP; 

2037 

9! 

ENZKX); 

2038 

8! 

ENDIP; 

2039 

7!$ 

91 

2040 

7!$ 

EVALUATE  ACTIVE  DISPLACEMENT  DEPENDENT  CONSTRAINTS  FROM 

91 

2041 

7!$ 

THE  STATICS  DISCIPLINE 

91 

2042 

7!$ 

91 

2043 

7! 

IF  NAUS  >  0  THEN 

l 

2044 

8!$ 

91 

2045 

8!$ 

SENSinvmES  OP  constraints  WRT  DISPLACEMENTS  FOR  STATICSS! 

2046 

8!$ 

$! 

2047 

8! 

CALL  NULLMAT  (  [DFDU]  .  [DP6VJ  ) ; 

! 

2048 

8! 

IP  NACSD  >  NAUS  *  NDV  THEN 

I 

2049 

9!$ 

$! 

2050 

9!$ 

USB  GRADIENT  METHOD 

$! 

2051 

9!$ 

$! 

2052 

9! 

CALL  NAXDFU  (  NTTBR.  BCID.  GSIZEB,  [SHATJ  ,  [NLSHATJ  . 

! 

2053 

9! 

SKATCOL,  NLSMTCOL.  [GLBSI6J .  [NLGLBSIGJ , 

! 

2054 

9! 

CONST,  BGPDT(BC).  [DFDUJ  ); 

♦ 

2055 

9! 

ELSE 

t 

2056 

9!$ 

9i 

2057 

9!$ 

USE  VIRTUAL  LOAD  METHOD 

91 

2058 

9!$ 

91 

26 


2059 

9! 

CALL  HAKDPU  (  NIT8R,  BCID,  GSIZBB,  [SMATJ  ,  [HLSMAT]  , 

2060 

9! 

SMATCOL,  NLSWTCOL,  [GLBSIG] ,  [NLGLBSIGl , 

2061 

9! 

CONST,  BGPDT  (BC)  ,  IDPGVl  )  ; 

2062 

9! 

BNDIF; 

2063 

8!$ 

$! 

2064 

8!$ 

SOHE  RELATIVELY  SIMPLE  CALCULATIONS  THAT  PRECEDE  THE 

$! 

2065 

8!$ 

LOOP  ON  THE  DESIGN  VARIABLES 

$! 

2066 

8!$ 

$! 

2067 

8! 

IF  NGDR  <>  0  THEN 

2068 

9! 

CALL  PARTN  (  [UG(BC)1..,,  [UGA] .  [PGAS] ,  [PGDRG(BC) ] ) ; 

2069 

9! 

ELSE 

2070 

9! 

CALL  COLPART  (  tUGCBOJ,  ,  [UGA],  [PGAS]  ); 

2071 

9! 

BNDIF? 

2072 

8!$ 

$! 

2073 

8! 

CALL  MKDFSV  (  NITER,  BCID,  GSIZBB,  [NLGLBSIGl  ,  CONST, 

2074 

8! 

[NLSMAT]  ,  NLSMTCOL,  [X^GA]  ,  DESLINK,  ,  NDV, 

2075 

8! 

GLBDBS,  LOCLVAR,  [PTRANS]  .  [DFSV]  ,  FDSTEP  ); 

2076 

8!$  ^ 

$! 

2077 

8!$ 

OBTAIN  THE  SENSITIVITIES  OP  THE  DESIGN 

$! 

2078 

8!$ 

DEPENDENT  LOADS 

$! 

2079 

8!$ 

$! 

2080 

8! 

CALL  DDLQAD (NDV,  GSIZEB,  BCID,  SMPLOD,  [DPTHVI]  ,  [DPGRVI]  , 

2081 

8! 

IDDPTHVl ,  [DDPGRVJ ,  DDPLG, [PGAS] ,  [DPVJ] ) ; 

2082 

8!$ 

$! 

2083 

8! 

CALL  MAXDVU  (  NITER,  NDV.  GLBDBS,  [UGA]  ,  [DRUG]  , 

2084 

8! 

GHKCT,  DKVI  ); 

2085 

8! 

CALL  NULLMAT  (  [DUG]  )  ; 

2086 

8! 

IF  NRSET  <>  0  THEN 

2087 

9! 

IF  NGDR  <>  0  THEN 

2088 

10! 

CALL  PARTN  {[AG  (BC)]  .  [AGA]  ,  [PGAS],  [F(3)RG(BC}  ]  )  ;  ! 

2089 

10! 

ELSE 

2090 

10! 

CALL  COLPART  (  [AG(BC)],  ,  [AGA],  [PGAS]  ); 

2091 

10! 

BNDIF; 

2092 

9! 

CALL  MAXDVU  {  NITER,  NDV,  GLBDBS,  [AGA],  [DMA6] , 

2093 

9! 

GMMCT,  DMVI  ); 

2094 

9! 

[DUG]  [DRUG]  [DHAG]  ; 

2095 

9! 

ELSE 

2096 

9! 

[DUG]  [DRUG]; 

2097 

9! 

BNDIF; 

2098 

8!$ 

$! 

2099 

8!$ 

ACCOUNT  FOR  VIRTUAL  LOAD  METHOD 

$! 

2100 

8!$ 

$! 

2101 

8! 

IF  NACSD  >  NADS  *  NDV  THEN 

r 

2102 

9!$ 

$! 

2103 

9!$ 

USB  GRADIENT  METHOD 

$! 

2104 

9!$ 

$! 

2105 

9! 

IP  DDFLG  >  0  THEN 

! 

2106 

10! 

[DPGV]  :«  [DPVJ]  4-  [DUG]  ; 

2107 

10! 

ELSE 

2108 

10! 

[DPGV]  :>  [DUG]; 

2109 

10! 

ENDIF; 

2110 

9! 

ELSE 

! 

2111 

9!$ 

$! 

2112 

9!$ 

USB  VIRTUAL  LOAD  MBTHCE) 

$! 

2113 

9!$ 

$! 

2114 

9! 

IF  DDFLG  >  0  THEN 

! 

2115 

10! 

[DPDU]  [DPVJ]  ♦  [DUG]  ; 

2116 

10! 

ELSE 

2117 

10! 

[DFDU]  [DUG]  ; 

2118 

10! 

BNDIF; 

2119 

9! 

BNDIF; 

2120 

8!$ 

$! 

2121 

8!$ 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET 

$! 

2122 

8!$ 

$! 

2123 

8! 

CALL  NULLMAT  (  [DPNV]  ,  [DHUN]  )  ; 

t 

2124 

8! 

IF  NMPC  <>  0  THEN 

t 

2125 

9! 

CALL  GREDUCE  { ,  [DPGV]  ,  [PGMNS  (BC)  ]  ,  [TMN(BC)  ]  ,  .  [DPNV]  )  ; 

2126 

9! 

ELSE 

! 

2127 

9! 

[DPNV]  [DPGV]; 

« 

2128 

9! 

BNDIF; 

1 

2129 

8!$ 

$! 

2130 

8! 

CALL  NULU4AT  (  [DPFV]  ,  [DMUF]  .  [DPFVX] ,  [DMOFX]  )  ; 

1 

2131 

8! 

IF  NSPC  <>  0  THEN 

I 

2132 

9! 

CALL  NRBDUCB  (,  [DPNV],  (PNSFS(BC)],  ,  .  ,  ,  [DPFV]); 

1 

2133 

9! 

ELSE 

I 

2134 

9! 

[DPFV]  [DPNV]; 

1 

2135 

9! 

ENDIF; 

1 

2136 

8!$ 

$! 

2137 

8! 

CALL  NULUttT  (  [DPAV]  ,  [DMUA]  )  ; 

t 

2138 

8! 

IP  NGDR  <>  0  THEN 

t 

2139 

9! 

[DPAV]  TRANS  (  [GSUBO(BC)]  )  *  [DPFV]  ; 

1 

2140 

9! 

ELSE 

1 

2141 

9! 

IP  NOMIT  <>  0  THEN 

I 

2142 

10! 

CALL  FREDUCE  (.  [DPFV],  [PFOAS(BC)],  . 

1 

2143 

10! 

(KOOINV(BC)] ,  ,  .  [GSUBO(BC)),  . 

1 

2144 

10! 

[DPAV] ,  [DPOV] ,  ) ; 

1 

2145 

10! 

ELSE 

1 

2146 

10! 

[DPAV]  [DPFV]; 

t 

2147 

10! 

BNDIF; 

I 

2148 

9! 

BNDIF; 

t 

27 


2X49 

8!$ 

$! 

21S0 

8! 

IP  NRSET  <>  0  THEN 

1 

2151 

9! 

CALL  ROWPART  (  [DPAV)  ,  IDPRV] .  [DPLVl  ,  IPARLSCBOl  ); 

! 

2152 

9! 

tDRHSl  TRANS  (  tD{BC)]  )  *  [DPLV]  +  IDPRVl  ; 

! 

2153 

9!$ 

$! 

2154 

9!$ 

PROCESS  ACTIVE  CONSTRAINTS  FOR  STATICS  DISCIPLINE 

$! 

2155 

9!$ 

$! 

2156 

9! 

CALL  INERTIA  (  [MRR(BC)1.  (DRHSl  .  [DORD]  ); 

! 

2157 

9! 

[DULDl  rD(BC)]  ♦  IDORD3  ; 

1 

2156 

91 

CALL  ROWMBRGB  (  {DUADJ  ,  (DURDJ .  IDDLDl  ,  [PARLS(BC)J  ); 

1 

2159 

9! 

tDPLVJ  :»  tDPLV]  ♦  [IPRtBOl  *  tDURDl  ; 

1 

2160 

9! 

CALL  PBS  (  IKLLINV(BC)  1  .  [DPLV],  [DDLV3  ); 

j 

2161 

9! 

CALL  YSMERGE  (  [DUAVJ ,  .  IDOLV]  ,  [PARLS(BC)3  ); 

1 

2162 

9! 

ELSE 

f 

2163 

9! 

CALL  PBS  (  [KLLINV(BC)K  [DPAV]  ,  IDUAVJ  ); 

; 

2164 

9! 

BNDIP; 

j 

2165 

8!$ 

$! 

2166 

8!$ 

/ 

RECOVER  TO  THE  F  SET 

$! 

2167 

81$ 

$! 

2166 

8! 

CALL  NULLMAT  (  [DtJPV]  )  ; 

2169 

8! 

IF  N6DR  <>  0  THEN 

1 

2170 

9! 

IDOPVI  lGSOBO(BC)I  *  [DOAVl ; 

1 

2171 

9! 

ELSE 

1 

2172 

9! 

IP  NOMIT  <>  0  THEN 

i 

2173 

10! 

IF  NRSBT  <>  0  THEN 

j 

2174 

11! 

[TMPll  :=  CDPOV]  -  (IPM(BC)]  *  IDDAD]  ; 

1 

2175 

11! 

ELSE 

1 

2176 

11! 

[TMPl]  (DPOVl  ; 

1 

2177 

11! 

SNDIP; 

; 

2176 

10! 

CALL  PBS  (  tICOOINV(BC)l  ,  [TMPll.  lUOO]  ); 

J 

2179 

10! 

[UOl  [GSDBO(BC)]  *  [DUAV]  +  (UOOl ; 

! 

2160 

10! 

CALL  ROWMERGE  (  [DUPV]  ,  [DO]  .  [DDAVl  .  [PPOAS  (BC)  1 )  ; 

1 

2161 

10! 

ELSE 

; 

2162 

10! 

[DUPV]  [DOAV]; 

j 

2163 

10! 

BNDIP; 

t 

2164 

9! 

BNDIP; 

I 

2185 

8!8 

$! 

2166 

8!$ 

REDUCE  THE  LEFT  HAND  SIDE  MATRIX 

$! 

2187 

8!$ 

$! 

2168 

8! 

IP  NMPC  <>  0  THEN 

2189 

9! 

CALL  GREDtrCB  ( ,  [DPDD)  .  [P01NS  (BC)  1  ,  tT«N(BC)  1 . .  tDFDONI  )  ; 

; 

2190 

9! 

ELSE 

t 

2191 

9! 

[DFDUN]  [DFDU]  ; 

t 

2192 

9! 

BNDIP; 

, 

2193 

8!$ 

$! 

2194 

8! 

IF  NSPC  <>  0  THEN 

2195 

9! 

CALL  ROWPART  (  [DPDUNl  ,  ,  tDFDUPI  ,  IPNSPS  (BC)  1  )  ; 

t 

2196 

9! 

ELSE 

t 

2197 

9! 

[DFDDPl  [DPDDNl; 

j 

2198 

9! 

BNDIP; 

1 

2199 

6!$ 

$! 

2200 

8!$ 

ACCOUNT  FOR  VIRTUAL  LOAD  METHOD 

$! 

2201 

8!$ 

$! 

2202 

6! 

IF  NACSD  >  NAUS  *  NDV  THEN 

1 

2203 

9!$ 

$! 

2204 

9!$ 

USB  GRADIENT  METHOD 

$! 

2205 

9!$ 

$! 

2206 

9! 

CALL  MKAMAT  (  [AMAT]  .  [DPOUP]  ,  [DUPV]  ,  [DPSVl  ,  PCAS, 

2207 

9! 

PRAS.  (PGASl  )  ; 

t 

2208 

9! 

ELSE 

1 

2209 

9!$ 

$! 

2210 

9!$ 

USB  VIRTUAL  LOAD  METHOD 

$! 

2211 

9!$ 

$! 

2212 

9! 

CALL  MKAMAT  ( [AMAT]  ,  [DUPV]  ,  [DPDUP] .  [DFSV)  ,  PCAS. 

t 

2213 

9! 

PRAS.  IPGAS]  ); 

! 

2214 

9! 

BNDIP; 

2215 

8!$ 

$! 

2216 

8! 

BNDIP;  $  END  IF  ON  ACTIVE  APPLIED  STATIC  LOADS 

$! 

2217 

7!$ 

$! 

2218 

7!$ 

EVALUATE  ACTIVE  CONSTRAINTS  PROM 

$! 

2219 

7!$ 

THE  STATIC  ABROBLASTICITY  DISCIPLINE 

$! 

2220 

7!$ 

$! 

2221 

7! 

IP  ACIABRO  THEN 

2222 

8! 

LOOP  :•  TRUE; 

f 

2223 

8! 

ACTUAGG  :>  FALSE; 

i 

2224 

8! 

ACTQAG6I;«  FALSE ; 

! 

2225 

8! 

SUB  :«  0; 

1 

2226 

8! 

CALL  NULLMAT  (  [DUPV]  )  ; 

j 

2227 

8! 

NHILB  LOOP  DO 

! 

2226 

9! 

SUB  :»  SUB  >  1; 

1 

2229 

9! 

CALL  AROSNSOR  (  NITER.  BCID,  SUB,  NDV.  LOOP,  NINDEX, 

r 

2230 

9! 

CONST,  SYH.  TRIMDATA,  NGDR, 

t 

2231 

9! 

(PGDRG(BC)l.  tUAG(BC)),  IAAG(BC)1. 

1 

2232 

9! 

ACTUAG,  [OGA],  [AGA]  .  [PGAA]  .  [PGAUJ  , 

t 

2233 

9! 

PCAA.PRAA,  (UAGC(BC.SUB)]  . 

! 

2234 

9! 

[AAGC<BC.SUB)  ]  .  ACTABPF,  (AUAGC) , 

1 

2235 

9! 

lAAAGCl.  PCAB. 

t 

2236 

9! 

lUAGKBC)].  [AAGKBOl.  [OGAIJ .  [AGAI]  , 

^  1 

2237 

9! 

[UAGCI(BC.SUB)] .  [AAGCI(BC.SUB)] , 

! 

2238 

9! 

[AUAGCI] . [AAAGCI]  ) ; 

! 
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IF  ACTAEPF  THEN 


2239 

9 

2240 

10 

2241 

10 

2242 

10 

2243 

10 

2244 

10 

2245 

10 

2246 

10 

2247 

11 

2248 

11 

2249 

11 

2250 

11 

2251 

11 

2252 

11 

2253 

11 

2254 

11 

2255 

10 

2256 

10 

2257 

11 

2258 

11 

2259 

11 

2260 

12 

2261 

12 

2262 

12 

2263 

12 

2264 

12 

2265 

12 

2266 

12 

2267 

12 

2268 

11 

2269 

10 

2270 

10 

2271 

10 

2272 

10 

2273 

10 

2274 

11 

2275 

11 

2276 

11 

2277 

12 

2278 

11 

2279 

12 

2280 

12 

2281 

12 

2282 

13 

2283 

12 

2284 

11 

2285 

11 

2286 

11 

2287 

11 

2288 

12 

2289 

12 

2290 

12 

2291 

11 

2292 

10 

2293 

10 

2294 

10 

2295 

10 

2296 

11 

2297 

11 

2298 

12 

2299 

11 

2300 

12 

2301 

12 

2302 

12 

2303 

13 

2304 

13 

2305 

12 

2306 

11 

2307 

11 

2308 

11 

2309 

11 

2310 

12 

2311 

12 

2312 

12 

2313 

11 

2314 

10 

2315 

10 

2316 

11 

2317 

12 

2318 

12 

2319 

12 

2320 

12 

2321 

13 

2322 

13 

2323 

13 

2324 

13 

2325 

12 

2326 

12 

2327 

12 

2328 

12 

$ 

PROCESS  PSEUDO  DISPLACEMENTS  FOR  EFFBCTTVENESS  $ 

CONSTRAINTS  $ 

$ 

CALL  MAXDVU  (  NITER,  NDV,  GLBDBS,  [AUAGC] ,  [DRUG]. 

GMKCT.  DKVI  )  ; 

IF  NRSET  <>  0  THEN 

CALL  MAXDVU  (  NITER,  NDV,  GLBDES,  [AAAGC]  ,  [DHAG]  . 

®«CT,  DKVI)  ,- 
IDP6V]  ;«  (DRUG]  •*-  (DMAG]  ; 

CALL  MAXDVU  (  NITER,  NDV,  GLBDES,  [AUAGC] .  [DMUG] , 
GMMCT,  DMVI) ; 

ELSE 

IDPGV]  [DRUG]; 

ENDIF; 

$ 

IF  SYMTRN(BC)  THEN 

CALL  MAXDVU  (  NITER,  NDV,  GLBDES,  [AUAGCIl , 

[DROGIl  ,  GMXCT,  DRVI  ) 

IP  NRSET  <>  0  THEN 

CALL  MAXDVU  (  NITER,  NDV,  GLBDES,  [AAAGCI] , 
(DMAGIl ,  GMMCT,  DMVI) ; 

[DPGVI3  :■  tDRDGI]  +  [DMAGIl ; 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  [AUAGCIl, 
IDMUGI3  ,  GMMCT,  DMVI) ; 

ELSE 

[DPGVI]  ;«  [DROGIl; 

ENDIF; 

BMDIF; 

$ 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET  $ 

$ 

CALL  NULIMAT  (  [DPNVl  ,  [DMUN]  .  [DPNVIl  ,  [DMONIJ  )  ; 

IF  NHPC  <>  0  THEM 

CALL  GRBDUCE  (  .  [DPGV] ,  [PGMMS(BC)3,  [TMM(BC)1.. 
[DPNV]  )  ; 

IP  NRSET  <>  0  CALL  6REDUCE  (  ,  [DMOGl , 

(PGNNS(BC)],  [TMN(BC)].,  [DMUN]  >; 

IP  STMTRN(BC)  THEN 

CALL  GREDUCE  (  ,  [DPGVI]  ,  [PGMNS  (BC)  ]  , 

[TMN[BC)],  ,  [DPNVl])  ; 

IP  NRSET  <>  0  CALL  GREDUCE  (  ,  [DMOGl]  , 

[PGMNS  (BC)l,  [TMN<BC)1.,  [DMONI]  ); 

ENDIF; 

ELSE 

[DPNV]  :«  [DPGV]; 

IF  NRSET  <>  0  [DMUN]  [DMOG]  ; 

IF  SYMrRN(BC)  THEN 

[DPNVl]  :»  [DPGVI); 

IP  NRSET  <>  0  [DMONI]  :«  [DMOGl]; 

ENDIF; 

ENDIF; 

$ 

CALL  NULIMAT  (  [DPFV]  ,  [DHOF]  ,  [DPFVX]  ,  [DMOFX]  ,  ! 


[DPFVIJ ,  [DMUFIl  ) ; 

IP  NSPC  <>  0  THEN 

CALL  NREDUCE  ( . [DPNV] , (PNSFS (BC) ],,,,,  [DPFV] ) ; 

IF  NRSET  <>  0 

CALL  NREDUCE  ( ,  [DMUN]  ,  [PNSFS  (BC)  ],,,,,  [DMOF]  )  ; 
IF  SYMTRN(BC)  THEN 


CALL  NREDUCE  ( , [DPNVl] , [PNSFS (BC)  ],,,,, 

[DPFVIJ ) ;  . 

IF  NRSET  <>  0 

CALL  NREDUCE  ( , [DMONI] , [PNSFS (BC) 

[DMOFI]  )  ; 

ENDIF; 

ELSE 

[DPFV]  :>  [DPNV]; 

IF  NRSET  <>  0  [DMOF]  [DMONI; 

IF  SYMrRN(BC)  THEN 

[DPFVI]  [DPNVIl  ; 

IP  NRSET  <>  0  [DMOFI]  [DMONI]  ; 

ENDIF; 

ENDIF; 

$ 

IF  SWrRN(BC)  THEN 
IF  SYM  -  0  THEN 

[HRDPFV]  :»  [HFREALT(BC) ]  *  [DPFV]; 

[HIDPFV]  :«  [HPIMAGT(BC)]  *  [DPFVIJ; 

[DPFVX]  [HRDPFV]  +  [HIDPFV]; 

IF  NRSET  <>  0  THEN 

[HRDMUP]  (HFRBALT(BC)  ]  *  [DMUF]  ; 

[HIDMOFl  ;«  [HFIMAGT(BC) ]  •  [DMOFI]; 

[DMOFX]  :«  [HRDMOF]  *  [HIDHOF] ; 

ENDIF; 

ELSE 

RSYM  ;«  SYM; 

[HRDPFV]  :»  (HFRBALT(BC)  ]  *  [DPFV]  ; 

(HIDPFV]  [HFIMAGT(BC)1  *  [DPFV]; 
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2329 

12! 

[DPFVXl  {HRDPFVl  +  (RSYM)  tHIDPFVj  ; 

t 

2330 

12! 

IF  NRSET  <>  0 

t 

2331 

13! 

[HROKDF]  :«  (HFREALT(BC)  ]  *  [DMUF]  ; 

1 

2332 

13! 

[HIDMOP]  (HPIMAGT(BC)]  ♦  [DMOP]  ; 

t 

2333 

13! 

IDMOFXl  :«  (HRDMUFJ  +  (RSYM)  tHIDMOF]  ; 

5 

2334 

13! 

ENDIF; 

1 

2335 

12! 

BNDIF; 

1 

2336 

11! 

SLSB 

t 

2337 

11! 

[DPFVXl  ;»  IDPPVl; 

I 

2338 

11! 

IF  NRSET  <>  0  [DMUFXl  :•  [DMUF); 

1 

2339 

11! 

BNDIF; 

j 

2340 

10!$ 

$! 

2341 

10! 

CALL  NULLMAT  (  [DPAV]  ,  [DMOA]  )  ; 

; 

2342 

10! 

IF  N(a)R  <>  0  THEN 

! 

2343 

11! 

IDPAVJ  :»  TRANS (  [GSDBO(BC)I  )  *  [DPFVXl; 

1 

2344 

11! 

IF  NRSET  <>  0  (DMOAl  :  «TRANS  ( [GSUBO  (BC)  1  )  *  [DMDFXl  i 

2345 

11! 

ELSE 

> 

2346 

11!  , 

IF  NOMIT  <>  0  THEN 

t 

2347 

12! 

CALL  FRKDDCB  (  .  [DPFVXl,  [PFOAX(BC)l,  1, 

f 

2348 

12! 

[KOOL (BC, SOB) 1 ,  [KOOU(BC, SUB) ] . 

1 

2349 

12! 

[XAO(BC,SUB)l  ,  [GASUBO(BC,SUB)). 

1 

2350 

12! 

(DPAVl.  [DPOVl,  ); 

f 

2351 

12! 

IF  NRSET  <>  0 

1 

2352 

13! 

CALL  FRSDUCE  (  ,  [DMUFXl,  [PPOAX(BC)l,  1. 

1 

2353 

13! 

[KOOL (BC, SUB)  1 ,  [KOOU(BC, SUB) ] , 

1 

2354 

13! 

[KAO(BC,SUB)]  ,  [<3ASUBO(BC,SUB)l, 

t 

2355 

13! 

[DNUAl  ,  [DHUOI  .  )  ,- 

1 

2356 

12! 

ELSE 

1 

2357 

12! 

[DPAVl  : »  [DPFVXl ; 

1 

2358 

12! 

IP  NRSET  <>  0  [DMOAl  :«  [DMUFXl  ; 

t 

2359 

12! 

ENDIF; 

1 

2360 

11! 

ENDIF; 

t 

2361 

10!$ 

$! 

2362 

10! 

IF  NRSET  <>  0  THEN 

2363 

11! 

CALL  ROHPART  ( (DPAVl  .  [DPRV] ,  (DPLV)  ,  [PARLX  (BC)  ]  ) 

2364 

11! 

CALL  RONPART  (  [DMOAl  ,  [DMURl ,  [DMUL]  ,  [PARLX  (BC)  ]  } 

! 

2365 

11! 

CALL  GFBS  (  [RLll  (BC,SDB)  1 ,  [RUll  (BC,SUB)  1 , 

♦ 

2366 

Ill 

[DPLV]  ,  [RllDPLl  )  ; 

1 

2367 

11! 

[DPll  :»  TRANS  ([D(BC)])  »  [DMULl  [DMURl  - 

1 

2368 

11! 

[R21(BC,SUB)1  *  [RllDPLl; 

1 

2369 

11! 

[DRHSl  TRANS  (  [D(BC)]  1  *  [DPLV]  ♦  [DPRV]  - 

t 

2370 

11! 

(R31CBC,SnB)l  *  [RllDPLl; 

t 

2371 

11!$ 

$! 

2372 

11!$ 

PROCESS  ACnVB  CONSTRAINTS  FOR  SABRO  DISCIPLINE 

$! 

2373 

11!$ 

$! 

2374 

11! 

CALL  GFBS  (  [KLll  (BC,  SUB)  ]  ,  [KUll  (BC,  SUB)  ]  , 

! 

2375 

11! 

[DPI],  [DKIVI  ); 

! 

2376 

11! 

[DRBS]  :>  [DRBSl  •  [K21  (BC,  SUB)  ]  *  [DKIV]  ; 

1 

2377 

11!$ 

$! 

2378 

11! 

CALL  DECOKP  (  [LRSA(BC,  SUB)  ]  ,  [LHSL]  ,  [LHSU]  }; 

j 

2379 

11! 

CALL  GFBS  (  [LHSL]  .  [LHSU]  ,  [DRHSl  ,  [DU2]  )  ; 

t 

2380 

11!$ 

$! 

2381 

11! 

[DUIR]  :>  [OXIV]  [K1112(BC,SUB)]  *  [DU2]  ; 

1 

2382 

11! 

[DUIL]  :>  [RllDPLl  [R1112  (BC,  SUB)  1  •  [DUIR] 

+ ! 

2383 

11! 

[R1113 (BC, SUB) 1  *  [DU2] ; 

1 

2384 

11! 

[EPPSENSl  -  (R31  (BC,  SUB)  I  *  [DUIL]  - 

t 

2385 

11! 

[R32(BC,SUB)1  *  [DUIRI; 

; 

2386 

111$ 

$! 

2387 

11! 

CALL  AEROBFFS  (  NITER,  BCID,  SUB,  SYM,  TRIMDATA, 

1 

2388 

11! 

HDV,  CONST,  PCAS,  [EFFSENS] . 

J 

2389 

11! 

[AMATl  ); 

1 

2390 

11! 

ELSE 

; 

2391 

11!$ 

$! 

2392 

11!$ 

NOTE  THAT  SAERO  N/O  SUPPORT  IS  NOT  SUPPORTED 

$! 

2393 

11!$ 

$! 

2394 

11! 

BNDIF; 

1 

2395 

10! 

ENDIF;  $  END  IF  ON  ACTABPF 

S! 

2396 

9!$ 

S! 

2397 

9! 

IP  ACTOAG  THEN 

{ 

2398 

10!$ 

$! 

2399 

10!$ 

SENSITIVITTBS  OF  CONSTRAINTS  NRT  DISPLACEMENTS 

$! 

2400 

10!$ 

VOk  SABRO.  THE  ACTUAGG  FLAG  WILL  BE  RETURNED 

$! 

2401 

10!$ 

FALSE  IF  ONLY  TRIM  PARAMETER  CONSTRAINTS  ARE  ACTIVE  $! 

2402 

10!$ 

$! 

2403 

10! 

CALL  NULLMAT  (  [DFDU]  ,  [DFDUI]  )  ; 

1 

2404 

10! 

CALL  MAXDFU  (  NITER,  BCID,  GSIZSB,  [SMAT]  .  [NLSMAT] 

1 

2405 

10! 

SMATCOL,  NLSMTCOL,  [GLBSIG]  , 

! 

2406 

10! 

[NLGLBSIG],  CONST,  B6PDT(BC} ,  [DFDU], 

1 

2407 

10! 

ACTUAGG,  SUB, 

! 

2408 

10! 

[GLBSIGI],  [NL6BSI6I],  [DFDUI], 

1 

2409 

10! 

ACXUAGGI,  SYMTRN(BC)  }; 

! 

2410 

10!$ 

$! 

2411 

10! 

CALL  MKDFSV  (  NITER,  BCID,  GSIZEB,  [NLGLBSIG]  ,  CONST,  ! 

2412 

10! 

[NLSMAT]  .  NLSMTCOL,  [UGA]  ,  DESLINK, 

2413 

10! 

SUB,  NDV,  6LBDES,  LOCLVAR,  [PTRAHS]  , 

2414 

10! 

[DFSV],  FDSTEP, 

2415 

10! 

[DGAI],  [DFSVI]  ); 

2416 

10!$ 

$! 

2417 

10!$ 

SOME  RELATIVELY  SIMPLE  CALCULATIONS  THAT  PRECEDE 

$! 

2418 

10!$ 

THE  LOOP  ON  THE  DESIGN  VARIABLES 

$! 
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2419 

10!$ 

$! 

2420 

10! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  (OGAJ  ,  (DKUGl  , 

2421 

10! 

GMKCT,  DKVI  ) ; 

2422 

10! 

CALL  NOLUIAT  (  [DPGVJ  )  ; 

2423 

10! 

IP  NRSET  <>  0  THEN 

2424 

11! 

CAIX  MAKDVD  (  NITER,  NDV.  GLBDES,  [AGA] ,  CDMAGJ  , 

2425 

11! 

GMMCT,  DMVI  ); 

2426 

11! 

[DP6V]  :«  [DKDG]  >  [DMAGl  ; 

2427 

11! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  (DGAl .  IDMOGl  . 

1 

2428 

11! 

GWKTT,  DMVI  ); 

1 

2429 

11! 

ELSE 

2430 

11! 

IDPGVl  :=  [DKDGl; 

2431 

11! 

ENDIF; 

2432 

10!$ 

$! 

2433 

10! 

IP  SVMTRN(BC)  THEN 

2434 

11! 

CALL  MAKDVU  {  NITER,  NDV,  GLBDES,  lUGAI]  . 

• 

2435 

11! 

IDKUGIl,  GMKCT,  DKVI  ); 

• 

2436 

11!  , 

CALL  NULLMAT  (  IDPGVl]  ) ; 

2437 

11! 

IP  NRSET  <>  0  THEN 

2438 

12! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES,  lAGAI]  . 

t 

2439 

12! 

IDMAGI),  GWCT,  DMVI  ); 

» 

2440 

12! 

tDPGVI]  :>  [DKUGI]  IDMAGI]; 

2441 

12! 

CALL  MAKDVU  (  NITER,  NDV,  GLBDES ,  [UGAX]  , 

1 

2442 

12! 

IDMOGl]  ,  GMMCT.  DMVI  )  ; 

1 

2443 

12! 

ELSE 

2444 

12! 

IDPGVl]  [DKUGI]; 

2445 

12! 

ENDIF; 

2446 

11! 

ENDIF; 

2447 

10!$ 

$! 

2448 

10!$ 

REDUCE  THE  RIGHT  HAND  SIDES  TO  THE  L  SET 

$! 

2449 

10!$ 

$! 

2450 

10! 

CALL  NULLMAT  (  [DPNV]  ,  [DMUN]  ,  (DPNVIl  .  [DMUNI]  )  ;  . 

2451 

10! 

IF  NMPC  <>  0  THEN 

1 

2452 

11! 

CALL  GRBDUCE  (  ,  IDPGV]  ,  [PGMNSIBC)],  ITMNIBC)]. 

t 

2453 

11! 

[DPNV]  )  ; 

1 

2454 

11! 

IF  NRSET  <>  0  CALL  GRBDUCE  (  ,  [OMOS]  , 

2455 

12! 

[PGMNS(BC)I,  ITMNIBC)]..  [DMUN]  }; 

1 

2456 

11! 

IF  SYMTRNIBC)  THEN 

t 

2457 

12! 

CALL  GRBDUCE  (  ,  [DPGVI]  ,  [PGMNS  (BC)  ]  , 

t 

2458 

12! 

ITMNIBC)],,  IDPNVI]); 

1 

2459 

12! 

IF  NRSET  <>  0  CALL  GREDUCB  (  ,  [DMOGI] , 

t 

2460 

13! 

[PGMNS (BC)],  [TNN(BC)],, 

{ 

2461 

13! 

(DNUNXI  ); 

i 

2462 

12! 

ENDIF; 

2463 

11! 

ELSE 

! 

2464 

11! 

IDPNVI  IDPGV]  ; 

1 

2465 

11! 

IF  NRSET  <>  0  IDMDN]  [OMOG]  ; 

t 

2466 

11! 

IP  SYMTRN(BC)  THEN 

f 

2467 

12! 

IDPNVI]  [DPGVI]; 

t 

2468 

12! 

IP  NRSET  <>  0  IDMUNI]  [DMOGI]; 

1 

2469 

121 

ENDIF; 

1 

2470 

11! 

ENDIF; 

t 

2471 

10!$ 

$! 

2472 

10! 

CALL  NULLMAT  {  (DPFV]  ,  [DMOF]  .  [DPFVX]  ,  IDMOFX]  , 

t 

2473 

10! 

[DPPVI]  ,  [DMUPI]  )  ; 

1 

2474 

10! 

IF  NSPC  <>  0  THEN 

f 

2475 

11! 

CALL  NRBDOCB  ( ,  IDPNV]  .  IPNSFS  (BC)  ],,,,,  IDPPVJ  )  ; 

t 

2476 

11! 

IF  NRSET  <>  0 

t 

2477 

12! 

CALL  NRBDUCB  ( .  [DMUN]  .  [PNSPS  (BC)  1 ,  ,  ,  .  ,  [DMOF]  )  .* ! 

2478 

11! 

IF  SYNTRN(BC)  THEN 

2479 

12! 

CALL  NREDUCB  ( , [DPNVI] . [PNSFS (BC) ],,,,, 

2480 

12! 

IDPFVIl  ) ; 

2481 

12! 

IP  NRSET  <>  0 

2482 

13! 

CALL  NREDUCB  (,  IDMUNI]  ,  (PNSFS  (BC)  ].,,,. 

2483 

13! 

[DMUFI] )  ; 

2484 

12! 

ENDIF; 

2485 

11! 

ELSE 

2486 

11! 

IDPFV]  :•  IDPNVI; 

2487 

11! 

IF  NRSET  <>  0  [DMOF]  :«  [DMUN]; 

2488 

11! 

IF  SYHtRN(BC)  THEN 

2489 

12! 

IDPFVIl  [DPNVIl; 

2490 

12! 

IF  NRSET  <>  0  (DMUFIl  IDMUNI]; 

2491 

12! 

ENDIF; 

2492 

11! 

ENDIF; 

2493 

10!$ 

$! 

2494 

10! 

IF  SYMTRN(BC)  THEN 

2495 

11! 

IHRDPFV]  :•  IHPREALT  (BC)  ]  *  IDPFV]; 

2496 

11! 

IHIDPFVJ  [HFIMAGT(BC)1  *  [DPFVI]  ; 

2497 

11! 

[DPFVX]  :»  IHRDPFV]  [HIDPFVl  ; 

2498 

11! 

IP  NRSET  <>  0  THEN 

2499 

12! 

[HRDMUF]  :>  IHFRSALT(BC)  ]  *  [DMOF]; 

2500 

12! 

[HIDMUF]  :•  IHFIMAGT(BC)  1  *  IDMOFI]  ; 

2501 

12! 

IDMOFX]  IHRDMOF]  4-  [HIDMUFl  ; 

2502 

12! 

ENDIF; 

2503 

11! 

ELSE 

2504 

11! 

[DPFVX]  [DPFV] ; 

2505 

11! 

IF  NRSET  <>  0  IDMOFX]  IDMUP]  ; 

2506 

11! 

ENDIF; 

2507 

10!$ 

$! 

2508 

10! 

CALL  NULLMAT  (  [DPAV]  .  [DMOA]  )  ; 
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2509 

10! 

2510 

11! 

2511 

11! 

2512 

11! 

2513 

11! 

2514 

12! 

2515 

12! 

2516 

12! 

2517 

12! 

2518 

12! 

2519 

13! 

2520 

13! 

2521 

13! 

2522 

13! 

2523 

12! 

2524 

12! 

2525 

12! 

2526 

12! 

2527 

11! 

2528 

10!$ 

2529 

10! 

2530 

11! 

2531 

11! 

2532 

11! 

2533 

11! 

2534 

11! 

2535 

11! 

2536 

11! 

2537 

11! 

2538 

11!$ 

2539 

11!$ 

2540 

11!$ 

2541 

11! 

2542 

11! 

2543 

11! 

2544 

11!$ 

2545 

11! 

2546 

11! 

2547 

11! 

2548 

11! 

2549 

11! 

2550 

11!$ 

2551 

11! 

2552 

11! 

2553 

11! 

2554 

11! 

2555 

11! 

2556 

11! 

2557 

11! 

2558 

11!$ 

2559 

11!$ 

2560 

11!$ 

2561 

11! 

2562 

10!$ 

2563 

10!$ 

2564 

10!$ 

2565 

10! 

2566 

10! 

2567 

11! 

2568 

11! 

2569 

11! 

2570 

12! 

2571 

13! 

2572 

13! 

2573 

13! 

2574 

13! 

2575' 

12! 

2576 

12! 

2577 

12! 

2578 

12! 

2579 

12! 

2580 

12! 

2581 

12! 

2582 

12! 

2583 

11! 

2584 

10! 

2585 

10! 

2586 

10!$ 

2587 

10! 

2588 

9! 

2589 

8!$ 

2590 

8! 

2591 

9!$ 

2592 

9!$ 

2593 

9!$ 

2594 

9! 

2595 

9! 

2596 

10! 

2597 

10! 

2598 

10! 

IP  NGDR  <>  0  THEN 

[DPAV]  TRANS  (  {GSUBO(BC)]  }  *  [DPFVX]  ; 

IF  NRSET  <>  0  [DMUA]  :  -TRANS  (  (GSUBO  (BC)  ]  )  *  [DMDFX] 
BLSB 

IP  NOMIT  c>  0  THEN 

CALL  PREDUCE  (  ,  [DPPVX]  ,  [PPOAX(BC)},  1. 

[KOOL(BC,SnB)l  .  [KOOn(BC,SUB)  ]  , 
[KAOtBC.SUB}] .  [GASllBO{BC,SUB}]  ,  , 
[DPAV]  ,  IDPOVl  .  )  ; 

IF  NRSET  <>  0 

CALL  PREDT7CE  (  ,  [DMDFX ] «  [PPQAX(BC)]«  I, 
[KOOL  (BC,  SDB)  ]  ,  [KOOU(BC,  SDB)  ]  , 
(KAO(BC,SUB}]  ,  (GASnBO(BC,SUB)]  ,  , 
[DMUA]  ,  [DMUO]  ,  )  ; 

BLSB 

[DPAVl  (DPPVXl; 

IF  NRSET  <>  0  [DHDA)  :>  [DMDFX]; 

ENDIF; 

ENDIF; 


IF  NRSET  <>  0  THEN 

CALL  ROHPART  ( [DPAV]  ,  [DPRV] ,  [DPLV]  ,  [PARLX(BC)  ]  ) 
CALL  ROHPART  ( [DMUA]  ,  [DMDR] ,  [DHDL] ,  [PARLX(BC}  ]  ) 
CALL  GFBS  (  [RLll  (BC,  SUB)  ]  ,  [RUll  (BC.SUB)  ]  , 
[DPLV]  ,  [RllDPL]  )  ; 

[DPI]  TRANS  (CD  (BC)])  *  [DMUL]  +  (DMOR)  - 
[R21  (BC,  SDB) )  *  [RllDPLl; 

[DRHS]  :«  TRANS  (  [D(BC)]  )  *  [DPLV]  >  [DPRV]  < 
[R31(BC,SUB)]  •  [RllDPL]  ; 

PROCESS  ACTIVE  CONSTRAINTS  FOR  SAERO  DISCIPLINE 


! 


$! 


! 


$! 

$! 


CALL  GFBS  (  [KLXl  (BC,  SUB)  ] ,  [KUll  (BC.SUB)  ] .  ! 

[DPI],  [DKIV]  );  ! 

[DRHS]  [DRHS]  -  [K21  (BC,SUB)  ]  *  [DKIV];  ! 

$! 

CALL  AEROSBNS  (  NITER,  BCID,  MINDEX,  SUB,  CONST,  ! 

SYM,  NDV,  BGPDT(BC),  ! 

TRXMDATA,  STABCFA,  [PGAA] ,  • 

[LHSA(BC,SUB)],  [RHSA(BC,  SUB)  ]  .  ! 

[DRHS],  [AAR],  [DDELDV],  [AHAT]  );! 

[DURV]  :«  [IC1112  (BC.SUB)]  *  [AAR]  ! 

[PAR (BC.SUB)]  *  (DDELDV]  *  [DKIV];  ! 

[DULV]  [R1112  (BC.SUB)]  *  [DURV]  ♦  ! 

[R1113  (BC.SUB)]  *  [AAR]  -  ! 

[RX1PAL( BC.SUB)]  •  [DDELDV]  [RllDPL];  ! 

CALL  ROHNBRGE  (  [DUAV]  ,  [DURV]  ,  [DULV]  ,  [PARLXCBC)  ]  )  ;  ! 
BLSB  ! 

$! 

NOTE  THAT  SAERO  H/O  SUPPORT  IS  NOT  SUPPORTED  $! 

$! 

ENDIF;  ! 

$! 

RECOVER  SBNSrriVITIBS  TO  THE  F  SET  $! 

$! 

CALL  NULLNAT  (  [UAFIMP]  )  ;  ! 

IF  HSDR  <>  0  THEN  ! 

[UAPTMP]  [GASUBO (BC.SUB)]  *  [DUAV];  ! 

ELSE  ! 

IF  NOMIT  <>  0  THEN  ! 

IF  NRSET  0  THEN  ! 

[TMPll  t»  [DPOV]  •••[POARO  (BC.SUB)]*  [DDELDV]  ;  ! 


[IMPll  [DPOV];  ! 

ENDIF;  ! 

CALL  GFBS  (  [KOOL  (BC,  SDB)  1  ,  [KOOU  (BC,  SUB)  1 .  ! 

[TMPl],  [UOO]};  ! 

[DO]  :«  [GASUBO  (BC,  SUB)  ]  *  [DUAV]  >  [UOO];  ! 
CALL  ROHMERGB  (  [DAPTMP] .  [DO] ,  [DUAV]  ,  ! 

(PFQAX(BC}]  );  ! 


[UAFIMP]  [DUAV]; 

ENDIF; 

ENDIF; 

CALL  AROSNSMR  (  BCIO,  SUB.  TRIMDATA.  NDV.  [PGAA]  . 

[PGAO]  .  [DDFVX]  .  [UAFTOP]  )  ; 

ENDIF;  $  END  IP  ON  ACTDA6 
BNDDO;  $  END  DO  ON  SUBSCRIPT  LOOP 

IF  ACTUAGG  THEN 

REDUCE  THE  LEFT  HAND  SIDE  MATRIX 

CALL  NULLMAT  (  [DFDUN]  )  ; 

IP  NMPC  <>  0  THEN 

CALL  GRBDDCB  (  .  [DFDU]  .  [PGMNS(BC)],  [TMN(BC)]., 
[DFDUN] )  ; 

ELSE 


$I 

$! 

$! 

$! 

I 

$! 

$! 

$! 

I 

! 
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2599 

10! 

[DPDDNl  ; «  [OPDOl  ; 

- 

2600 

10! 

SSDIF; 

e  1 

260X 

9!$ 

2602 

9! 

CALL  NULIWAT  (  IDPDOT]  )  ; 

2603 

9! 

IP  HSPC  <>  0  THEN 

• 

2604 

10! 

CALL  ROWPART  (  [DPDONl  ,  ,  [DPDUF]  ,  IPNSPS  {BO  ]  )  ; 

2605 

10! 

BLSB 

1 

2606 

10! 

tDFDUF]  ;»  IDPDUN] ; 

2607 

10! 

BNDIF; 

2608 

9!$ 

2609 

9!$ 

TAKE  MERGED  SEKSITIVITIBS  OP  DISPLACEMENTS  AND 

$! 

2610 

9!$ 

COMPUTE  THE  AMAT  MATRIX  TERMS  FOR  THE  SAERO 

S! 

2611 

9!$ 

CONSTRAINTS 

$! 

2612 

9!$ 

$! 

2613 

9! 

IP  SYMTRN(BC)  THEN 

♦ 

2614 

10! 

tDUPV]  :«  (HPREALCBOl  *  [DUFVXl  ; 

1 

2615 

10! 

ELSE 

2616 

10! 

IDDPV]  :*  IDUPVXl; 

! 

2617 

10! 

'  ENDIP,- 

2618 

9!$ 

$! 

2619 

9! 

CALL  MKAMAT  (  [AMATJ  ,  [DPDUPl  .  [DOPV]  ,  {DPSV]  ,  PCAA, 

! 

2620 

9! 

PRAA,  [PGAU]  ); 

2621 

9!$ 

2622 

9! 

ENDIF;  $  END  IF  ON  ANY  ACTIVE  DISPLACEMENTS 

$  J 

2623 

8!$ 

$! 

2624 

8! 

IP  ACTUAGGI  THEN 

! 

2625 

9!$ 

$! 

2626 

9i$ 

REDUCE  THE  LEFT  HAND  SIDE  MATRIX  FOR  REFLECTED  PORTION 

$! 

2627 

9!$ 

$! 

2628 

9! 

CALL  NULLMAT  (  (DFDUNIl  )  ; 

' 

2629 

9! 

IF  NMPC  <>  0  THEN 

2630 

10! 

CALL  GREDUCE  {  .  [DFDUll  ,  [P04NS(BC1  ]  ,  tTMN{BC)  1  ,  . 

I 

2631 

10! 

[DFDUNIl ) ; 

1 

2632 

10! 

ELSE 

2633 

10! 

[DFDUNIl  :«  [DFDUll; 

• 

2634 

10! 

ENDIF; 

* 

2635 

9!$ 

5! 

2636 

9! 

CALL  NULLMAT  (  [DFOUFI]  )  ; 

• 

2637 

9! 

IP  NSPC  <>  0  THEN 

1 

2638 

10! 

CALL  ROWPART  (  [DFDONIl ,  ,  [DFDUFIl  ,  [PNSPS{BC)1  ); 

2639 

10! 

BLSB 

2640 

10! 

[OFDOFIl  :»  [DPDOKIl; 

2641 

10! 

BNDIF; 

• 

2642 

9!$ 

$! 

2643 

9!$ 

TAKE  MERGED  SENSITIVITIBS  OP  DISPLACEMENTS  AND 

$! 

2644 

9!$ 

COMPUTE  THE  AMAT  MATRIX  TERMS  FOR  THE  SAERO 

$! 

2645 

9!$ 

CONSTRAINTS  FOR  REFLECTED  PORTION 

S ! 

2646 

9!$ 

$! 

2647 

9! 

[DOFVIl  :•  £HFIMAG(BC)1  *  (DUFVXl  ; 

1 

2648 

9!$ 

5 

2649 

9! 

CALL  MKAMAT  (  [AMAT]  .  [DFDUFll  ,  [DUFVIJ  ,  [DPSVIl  ,  PCAA, 

1 

2650 

9! 

PSAAI,  [PGAUl  ); 

! 

2651 

9!$ 

$! 

2652 

9! 

ENDIF;  $  END  IF  ON  ANY  ACTIVE  DISPLACEMENTS  (REFLECTED) 

S! 

2653 

8!$ 

$! 

2654 

8! 

BNDIF;  $  END  IP  ON  ACTIVE  AEROELASTIC  CONSTRAINTS 

$! 

2655 

7!$ 

$! 

2656 

7!$ 

EVALUATE  PANEL  BUCKLING  CONSTRAINT  SENSITIVITIES 

$! 

2657 

7!S 

$! 

2658 

7! 

IF  ACTPNL  THEN 

2659 

8! 

CALL  PBKLSENS  (  BCID.  NITER,  NDV,  GLBDBS,  LOCLVAR, 

! 

2660 

8! 

[PTRANS],  FDLIST,  [AMAT]  ); 

t 

2661 

8! 

BNDIF; 

! 

2662 

7! 

IF  ACTBAR  THEN 

• 

2663 

8! 

r^T.T.  BBKLSSNS  (  BCID,  NITER,  NDV,  CONST,  DBSLINX,  GLBDBS, 

t 

2664 

8! 

(AMATl  ); 

f 

2665 

8! 

BNDIF; 

! 

2666 

7! 

BNDIF;  $  END  IF  ON  ACTIVE  BOUNDARY  CONDITION 

$! 

2667 

6! 

BNDDO;  $  END  DO  ON  ACTIVE  BOUNDARY  CONDITIONS 

$! 

2668 

5!$ 

$! 

2669 

5! 

CONORDBR  (  NITER,  NUMOPTBC,  CASE,  CONST,  CONSTORD  )  ; 

2670 

5!$ 

$! 

2671 

5! 

CALL  OFPGRAD  (  NITER,  [AMATl  ,  GLBDBS,  CONST,  CONSTORD, 

; 

2672 

5! 

GRADIENT  ); 

j 

2673 

5!$ 

$! 

2674 

5! 

IF  NITER  >-  OCS  AND  NITER  <-  OCB  THEN 

2675 

6! 

PRIWr(«LOG-(’  VANGO  MODULE*)-)  ; 

1 

2676 

6! 

CALL  VANGO  (  NITER,  NDV,  APPCNVRG,  MOVLIM,  CNVRGLIM, 

! 

2677 

6! 

CTL,  CTUIIN,  NUMOPTBC,  CASE,  GLBDBS,  CONST,  [AMATl 

1 

2678 

6! 

DESRIST  }  ; 

! 

2679 

6! 

BLSB 

J 

2680 

6! 

IF  NITER  >■  MPS  AND  NITER  <*  MPB  THEN 

! 

2681 

7! 

PRINTCLOG-C  DESIGN  MODULE* )-)  ; 

* 

2682 

7! 

CALL  DESIGN (  NITER,  NDV,  APPCNVRG,  CNVRGLIM, 

! 

2683 

7! 

CIL,  CTIMIN,  GLBDBS,  CONST,  CONSTORD, 

1 

2684 

7! 

[AMAT],  DBSHIST  ); 

1 

2685 

7! 

BNDIF; 

! 

2686 

6! 

ENDIF ; 

• 

2687 

5!$ 

$! 

2688 

5! 

BNDIF;  $  END  IF  ON  PSD  METHOD 

$! 

33 


2689  4!  BNDIF;  $  END  IP  TEST  AFTER  ACTCON 

2690  3!  ENDDO;  $  ‘  END  WHILE  LOOP  FOR  GLOBAL  CONVERGENCE 

2691  2!ENDIF;  $  END  IP  ON  OPTIMIZATION 

2692  1!$ 

2693  ii$*************************************************************************** 

2694  1!$  BEGIN  FINAL  ANALYSIS  LOOP 

2695  ii$************»******************************.***********.******************* 

2696  1!$ 

2697  1!IF  NBNDCOND  >  NUHOPTBC  THEN 

2698  2!$ 

2699  2!$  ASSEMBLE  THE  GLOBAL  MATRICES 

2700  2!S 

2701  2!  prinTCLOG- { •**••***•••******♦♦**•******••*•)•); 

2702  2!$ 

2703  2!$  ASSOIBLB  THE  GLOBAL  MATRICES 

2704  2!$  BEGIN  BOUNDARY  CONDITION  LOOP 

2705  2!$ 

2706  2!  PRINT(;L0G- ('BEGIN  FINAL  ANALYSIS*  )■)  ; 

2707  2!  CALL  ANALINIT; 

2708  2!  CALL  BMA2  (  ,  NDV,  GSIZEB,  GLBDES,  C^CTG,  DKVIG.  (KlGGl , 

2709  2!  GmCTG,  DMVIG.  {MlGGl  ); 

2710  2»  FOR  BC  -  NDMOPTBC  +  1  TO  NBNDCOND  DO 

2711  3!  CALL  BCIDVAL  (  BC,  CASE,  BCID  ); 

2712  3 !  PRINT ( -LOG* ( '  BOUNDARY  CONDITION  ’,18)  • , BCID)  ; 

2713  3'$ 

2714  3!$  ESTABLISH  THE  BASE  USET  AMD  PARTITIONING  DATA  FOR  THE  BC 

2715  3!$ 

2716  3!  CALL  MlCaSBT(  BCID.  GSIZEB.  (YS(BC}).  [TMN(BC)],  (PGMN(BC)),  [PNSF(BC)] 

2717  3!  [PFOA(BC)],  [PARL(BC)].  USBT(BC)  ); 

2718  3!$ 

2719  3!$  MAKE  B.C.- DEPENDENT  BGPOT  FROM  BASE,  ADDING  THE  EXTRA  POINTS  FOR 

2720  3!$  THIS  B.C. 

2721  3!$ 

2722  3!  CALL  BCBGPDT(  BCID  .  GSIZEB  .  BGPDT(BC)  ,  BSIZS(BC)  ); 

2723  3!  GSIZE  :«  GSIZEB; 

2724  3!  PSIZE(BC)  SSIZB(BC)  GSIZE; 

2725  3!$ 

2726  3!  CALL  AROSYMOC  (CASE,  BGPDT(BC) ,  USBT(BC)  ,  RELES,  BC,  TOLVALUE. 

2727  3!  STHSYM  ); 

2728  3!$ 

2729  3!$  PROCESS  MATRICES.  TRANSFER  FUNCTIONS.  AND  INITIAL  CONDITIONS  FOR 

2730  3!$  THIS  B.C. 

2731  3!$ 

2732  3!  CALL  BCBULK(  BCID  .  PSIZB(BC)  ,  BGPDT(BC)  ,  USBT(BC)  ); 

2733  3!$ 

2734  3!  CALL  BOUND  (  BCID,  GSIZE,  BSIZB(BC) .  USBT(BC)  ,  BLOAD,  BMASS,  DMODES, 

2735  3!  BNODES,  BSAERO,  BFLOTR,  BDYN,  BDRSP,  BDTR,  BKIR.  BDFR, 

2736  3!  BNFR,  BGUST.  BBLAST,  NNPC,  NSPC,  NOHIT,  NRSET,  »a>R  ); 

2737  3!$ 

2738  3!$  DETERMINE  IF  ANY  M2GG/K2GG  INPUT  DATA  ARB  TO  BE  ADDED 

2739  3!$ 

2740  3 !  CALL  NULLMAT  (  tXOG]  ,  (NGG]  }  ; 

2741  3!  CALL  HK2GG  (  BCID,  GSIZEB,  [H2GG]  ,  H266FLAG,  tK2GG]  ,  K2G6FLAG  ); 

2742  3!  IP  N2G6FLAG  THEN 

2743  4!  (MGG)  [MIGG]  [M2GG]  ; 

2744  4 !  ELSE 

2745  4!  [MSG]  [MIGG]; 

2746  4!  ENDIF; 

2747  3!  IF  K2GGFLAG  THEN 

2748  4!  [KG6]  :*  [KIGG]  *  [K2GG]  ; 

2749  4 !  ELSE 

2750  4!  (X6G)  :«  [KIGG] ; 

2751  4!  BNDIF; 

2752  3!$ 

2753  3!$  CALL  THE  GRID  POINT  HEIGHT  GENERATOR  FOR  THIS  BOUNDARY  CONDITQN 

2754  3 ! $ 

2755  3!  CALL  GPNG  (  ,  BCID,  GPHGGRID.  [NGG],  OGPHG  ); 

2756  3!$ 

2757  3!  IP  BLOAD  <>  0  CALL  GTLQAD  (  ,  BCID,  GSIZE,  B6PDT(BC)  ,  GLBDES, 

2758  4!  SMPLOD,  [DPTR7I] ,  [DPTHVD]  ,  (DF(31VI]  , 

2759  41  [DPGRVD]  ,  [PG] ,  OCKIDLOD)  ; 

2760  3!$ 

2761  31$  PARTinON'RBDUCriON  OF  GLOBAL  MATRICES 

2762  31$ 

2763  3!  IF  NBNDCOND  >  1  CALL  NULLMAT  (  [KNN]  ,  [PN]  ,  [MNN]  ,  [6TKN]  ,  [GSTKN]  , 

2764  4!  [GPTKN],  (OGTKN]  ); 

2765  3!  IF  NMPC  <>  0  THEN 

2766  4!$ 

2767  4!$  PERFORM  MPC  REDUCTION 

2768  4!$ 

2769  4!  PRINTCLOG-C  MPC  REDUCTION* )-)  ; 

2770  4!  CALL  GREDUCB  (  [KGG] ,  [PG] ,  [PQIN(BC)],  [TMM(BC)],  [KNN],  [PN]  ); 

2771  4 !  IP  BMASS  <>  0  CALL  GREDUCB  ( [MGG]  , ,  [PGMN(BC)  ]  ,  [TNN(BC)  ]  ,  [MNN] )  ; 

2772  4!  IF  BSAERO  <>  0  THEN 

2773  S!  CALL  SPLINPND  (  BCID,  CASE,  MODEL,  SPLINE,  [6TKG] ,  [6STKG] , 

2774  5!  [GPTKGl  )  ; 

2775  5!  CALL  GREDUCE  (.  [GTKG]  ,  [PGHN(BC)  ] ,  [IMN(BC)  ] ,  ,  [6TKN] }  ; 

2776  5 !  CALL  GREDUCB  ( ,  [GSTKGJ .  [POOI(BC) )  ,  (TMN(BC)  3  , ,  [GSTKN] )  ; 

2777  5!  CALL  GREDUCE  (,  [GPTKG] ,  [POIN(BC)  ]  ,  [TMN(BC)  ]  . ,  [GPTKN] )  ; 

2778  5!  BNDIF; 


$) 

9! 

$: 

$ 

$ 

$ 

$ 

$ 

9 

9 

9 

9 

9 


9 

9 

9 


9 

9 

9 

9 


9 


9 

9 

9 

9 

9 


9 

9 

9 


9 

9 

9 

9 


9 

9 

9 


9 

9 

9 
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2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 


5! 

4! 

4!$ 

4!$ 

4'$ 

4! 

4! 

4! 

4! 

5! 

5! 

5! 

5! 

4! 

4! 

3!$ 

3!$ 

3!$ 

3! 

3! 

3! 

3! 

3! 

3!$ 

3! 

4! 

4! 

3!$ 


IP  BPUITR  <>  0  OR  BGUST  <>  0  OR  BBIAST  <>  0 

CALL  GRKDOCB  (,  [UGTKGJ  ,  tPOOKBC)  1  ,  ITON(BC)  1  , 

ELSE 

NO  MPC  REDUCTION 

[KNN]  [KGG1; 

IP  BliOAD  <>  0  [PNl  :»  [PG]  ? 

IP  BHASS  <>  0  tMNNl  :»  IMGG)  ; 

IP  BSABRO  <>  0  THEN 
IGTKN] 

[GSTKN] 

IGPTKN] 

ENDIF; 

IF  BPLUTR  <> 

ENDIF; 


ttJGTKNl  )  ; 


[GTKG]  ; 

IGSTKG] ; 

[GPTKG]  ; 

0  OR  BGUST  <>  0  OR  BBLAST  <>  0  {UGTKNJ 


IUGTE61 ; 


PBR^RM  AUTOSPC  CALCULATIONS  ON  THE  KNN  MATRIX 


PRINT("LOG«(  •  AUTOSPC  COMPUTATIONS*  )•)  ; 

CALL  GPSP  (  ,  BCID,  NGDR,  [XNNJ  .  BGPiyr(BC)  ,  (VS  (BC)  J  ,  USET(BC)  , 

GPST(BC)  ); 

CALL  MKPVKCr  (  USBT(BC),  [PGMN(BC)I.  [PNSF(BC)],  (PFOA(BC)3.  [PARL(BC)1  ); 
CALL  BOONDUPD  (  BCID,  GSIZE,  ESI2B(BC).  USBT(BC) ,  NSPC,  NOHIT,  NRSBT  ) ;  ^ 

IP  NBNDCOND  >  1  _ 

CALL  NULLMAT  {  (KPPJ  ,  (PPl ,  (MPFl .  IGTKPl ,  tGSTXFl , 

[GPTKFI,  [UGTKPl,  (KPFXl  .  (PPX]  ,  WFFX]  ); 


3! 

IP  NSPC  <>  0  TBBN 

4!$ 

4!$ 

PERFORM  SPC  REDUCTION 

4!$ 

4! 

PRIKT(  -LOG-  ( •  SPC  REDUCTION* )  ** )  ; 

4! 

CALL  NRBDUCE  (  (KNNl ,  (PNl,  (PMSPCBC)],  [YS (BC)] ,  (KPPl .  (KPSl , 

4! 

[KSS],  (PPl.  (PSl  ); 

4! 

IP  BHASS  <>  0  CALL  NRSDUCE  (  [MNN] ,  ,  (PNSP(BC)],  ,  (MPP]  )  ; 

4! 

IF  BSABRO  <>  0  THEN 

5! 

CALL  NRBDUCE  (  ,  (GTXNl ,  (PKSP(BC)l,  ,  , 

,  ,  (GTKPl  ); 

5! 

CALL  NRBDUCE  (  ,  IGSTKN]  ,  [PNSP(BC)1.  ,  . 

.  ,  (GSTKPl  ) ; 

5! 

CALL  NRBDUCE  (  ,  (GPTKNl ,  [PNSFCBO 1 .  ,  , 

,  .  (GPTKFI  ); 

5! 

BNDIP; 

4! 

IF  BPLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0 

5! 

CALL  NRBDUCE  (,  (tIGTKNl ,  [PNSF (BC)  }  ,  , , ,  , 

(OGTKPJ ) ; 

4! 

SLSB 

4!S 

4!$ 

NO  SPC  REDUCTION 

4!$ 

4! 

(KFF]  (KNN); 

4! 

IP  BLQAD  <>  0  (PP)  :•  (PN) ; 

4! 

IP  BHASS  <>  0  (MPPl  t-  IMNNl; 

4! 

IF  BSABRO  <>  0  THBN 

5! 

IGTKPl  IGTKNJ; 

5! 

[GSTKP]  (GSTKNl; 

5! 

IGPTKFl  :•  IGPTKNl; 

5! 

ENDIF; 

4! 

IP  BPLUTR  «>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0 

(UGTKPl  : »  lOGTKNl 

4! 

ENDIF; 

3!$ 

3!$ 

ADD  IN  THB  NEW  MODULE  TO  GENERATE  THE  H  MATRIX 

FOR  SYM-TRAN 

3!$ 

3! 

CALL  SABRODRV  (BCID,  1,  LOOP,  HINDBX,  SVM,  MACS 

.  QDP, 

3! 

TRIMDATA,  TRIMRSLT,  METHOD  )  ; 

3! 

SYMTRN(BC)  :»  FALSE; 

3! 

ACSMTR(BC}  FALSE; 

3! 

IP  MBTH<»-USS  THBN 

4! 

IP  STRSYM  THBN 

5! 

IP  SYM-0  THEN 

6! 

SYMTRN(BC)  TRUE; 

6! 

BNDIP; 

5! 

ENDIF; 

4! 

ELSE 

4! 

IP  MBTHOD-QP  THEN 

5! 

IF  STRSYM  THEN 

« 

6! 

IP  SYM-0  OR  SYM— 1  THEN 

7! 

SYMrRN(BC)  TRUB; 

7! 

ACSMTR(BC)  TRUE; 

7! 

BNDIP; 

6! 

ENDIF; 

5! 

BNDIP; 

4! 

ENDIF; 

3! 

IP  SYMTRN(BC)  THEN 

4! 

CALL  RBMGBN  (  BGPDT(BC) ,  20,  {RGBDMG]  ); 

4! 

CALL  AROHGBN  (CASE,  BGPDT(BC) ,  DSBT(BC)  ,  RBLBS,  BC.  TOLVALUB, 

4! 

IHPRBALT(BC)1.  (HPIMAGTIBC)  1 , 

USBTX(BC)  ); 

4! 

CALL  MKPVECT  (USBTX(BC),  IPGMNX(BC)1,  (PNSPX(BC)l, 

4! 

(PFOAX (BC) 1 ,  IPARLX (BC) 1  ) ; 

4! 

CALL  TRNSPOSB  (  (RPRBALT(BC)  I ,  [HFRBAL(BC)] 

); 

4! 

CALL  TRNSPOSE  (  {HPIMAGT  (BC)  ]  ,  IHPIMAG(BC)1 

)i 

4> 

IF  ACSMTR(BC)  THEN 
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2869 

5! 

CALL  TRNSPOSB 

(  [EREALK] ,  [ERSALT]  ) ; 

2870 

5! 

CALL  TRNSPOSE 

(  lEIMAGK] ,  [KIMAGT]  ) ; 

2871 

5! 

ENDIF; 

2872 

4! 

IHTKPHRI  IHFRBALT{BC)  ]  *  t  tKPPl  *  tHFREAL{BC)l  ]; 

2873 

4! 

tHTKFHIl  ;»  [HPIMAGTCBC) ]  *  [  [KPP]  *  [HFIMAG(BC)]  ]; 

2874 

4! 

(KFPXl  :»  [HTKPHRl  +  [HTKFHI] ; 

2875 

4! 

IF  BKASS  <>  0  THEN 

2876 

5! 

[fflMPHR)  :«  {HFREALTCBOJ  *  [  IMFF]  *  IHPREAL(BC)3  ]; 

2877 

5! 

IHIMFHIJ  :»  tHPIMAGT(BC)J  *  [  JMPPl  *  [HFIHAGCBOl  1; 

2878 

5! 

[MFFXl  ;*  (HIMFHR]  >  [BTMFHI]  ; 

2879 

5> 

ENDIF; 

2880 

4! 

IF  BSAERO  -  0  THEN 

2881 

5! 

[BFRTPF]  :« 

[HFRBALT(BC)]  *  [PF] ; 

2882 

5! 

tHPITPPl  : » 

[HFIMAGT[BC)3  *  [PFl ; 

2883 

5! 

(PPXl 

[HFRTPPl  ♦  [HFITPFI; 

2864 

5! 

ELSE 

2885 

5! 

IF  ACSMTR(BC) 

THEN 

2886 

6! 

;  (BBGTKF] 

-  IHFRBALT(BC)3  ♦  [  [GTEPJ  *  [EREALK]  1; 

2867 

6! 

IHIGTKPJ 

-  tHFIMAGT(BC)I  *  [  [GTKPl  *  [KIMAGK]  J; 

2888 

6! 

[HKGSnCF] 

•  [HFREALT(BC)1  *  [  [GSTKF]  *  [KHBALK]  1; 

2889 

6! 

[HI6STKF1 

-  [HFIMAGT(BC)]  ♦  (  [GSTKP]  •  [KIMAGS]  1; 

2690 

6! 

[HR6PTKP] 

>  [HFREALTtBO }  *  [  [GPTKF]  *  [EREALK]  ]; 

2891 

6! 

[HIGFTK7I 

»  (HFIMAGT(BC)l  *  [  [GPTKF]  *  [KIMAGP]  ]; 

2892 

6! 

ELSE 

2693 

6! 

(HRGTKF] 

»  [HPRBALT(BCJI  *  [GTKP] ; 

2894 

6! 

IHIGTKP) 

-  [HFIMAGT(BC)1  *  [GTKF]  ; 

2895 

6! 

(BRGSnCF] 

»  [HFRBALT(BC))  •  [GSTKF]; 

2896 

6! 

IHIGSTKP] 

-  [HFIMAGT(BCJ  J  •  [GSTKP]  ; 

2897 

6! 

[BRGPTKF] 

-  [HPRBALT(BC)1  *  [GPTKF]; 

2898 

6! 

[HIGPTKF] 

-  [HFIMAGT(BC)]  •  [GPTKP]  ; 

2899 

6! 

ENDIF ; 

2900 

5! 

ENDIP; 

2901 

4! 

ELSE 

2902 

4! 

[KFFXl  :»  [KFFl; 

2903 

4! 

[MFPXl  CMFFJ; 

2904 

4! 

[PFX]  :«  CPFI; 

2905 

4! 

[GPTKFXI  :«  {GPTKFl  ; 

2906 

4! 

IJ5BTX(BC}  USBT(BC)  ; 

2907 

4! 

[PGHNXCBOl  (PGNH(BC)]; 

2908 

4! 

(PNSFXCBOl  :»  [PlfSF(BC)}; 

2909 

4! 

[PFQAX(BC)]  :»  tPPQA(BC}]; 

2910 

4! 

[PARIJC(BC)]  :•  [PARL(BC)]; 

2911 

4! 

ENDIF; 

2912 

3!$ 

$ 

2913 

3! 

IF  HBNDCOND  >  1  CALL  NULLMAT  (  fKAA]  ,  [PA]  ,  [MAA]  ,  [KAAA]  ,  [PAA]  ,  [DGTICAI  )  ;  ! 

2914 

3!$ 

$ 

2915 

3! 

IF  NGDR  <>  0  THEN 

2916 

4!$ 

$ 

2917 

4!$ 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION  WHICH  IS  DISCIPLINE 

$ 

2918 

4!$ 

INDEPENDENT.  THE  RESULTING  (GSUBOI  MATRIX  WILL  BE  USED  BY 

$ 

2919 

4!$ 

ALL  DISCIPLINES 

$ 

2920 

4!$ 

s 

2921 

4! 

PRINT(*L06-(* 

DYNAMIC  REDUCTION* ) ")  ; 

2922 

4!$ 

$ 

2923 

4!$ 

OBTAIN  THE  OMITTED  DOF  PARTITION  OF  KFF  AND  MFP 

$ 

2924 

4!$ 

$ 

2925 

4! 

CALL  PARTN  (  [RFFXl ,  [KOOl ,  ,  [KOAl »  ,  tPP0AX(BC)1  ); 

2926 

4! 

CALL  PARTN  (  [MFFX] ,  [MOOl ,  ,  .  ,  [PPOAX{BC)l  ); 

2927 

4! 

ASIZE  GSIZE  - 

NMPC  -  NSPC  -  NOMIT; 

2928 

4! 

LSIZE  :•  ASIZE  > 

NRSET; 

2929 

4! 

CALL  GDRl  (  [KOO] 

,  [MOO],  [KSOOl,  [GGOl,  LKSET,  LTSET,  NEIV, 

2930 

4! 

FMAZ 

BCID,  BGPDT{BC),  USBTX{BC>,  NOMIT,  LSIZE  ); 

2931 

4!$ 

$ 

2932 

4!$ 

LESET 

MEANING 

$ 

2933 

4!$ 

<>  0 

APPROX.  MODE  SHAPES  SELECTED 

$ 

2934 

4!$ 

«  0 

NO  APPROX.  NODE  SHAPES  IN  GDR 

$ 

2935 

4!$ 

$ 

2936 

4! 

IF  LKSET  <>  0  THEN 

2937 

5! 

CALL  SDCOHP  ( 

[KSOO]  ,  [LSOO]  ,  USETX  (BC)  ,  SINGOSET  )  ; 

2938 

5! 

CALL  GDR2  ( 

[LSOO],  [MOOl,  [PHIOK],  LKSET,  LJSBT, 

2939 

5! 

NEIV,  FMAX,  BCID  }; 

2940 

5! 

ENDIF; 

2941 

4! 

CALL  GDR3  (  [KOO] 

,  [KQA],  [HGG],  [PHIOK],  [TMN(BC}].  [GGO]  . 

2942 

4! 

[PGMNX(BC)].  (PNSFX(BC)K  [PPQAX(BC}],  [6SUB0(BC)]. 

2943 

4! 

BGPCTCBC).  USETX(BC}, 

2944 

4! 

LESET,  LJSET,  ASIZE,  GNORM,  BCID  )  ; 

2945 

4! 

CALL  GDR4  (  BCID 

GSIZE,  PSIZB(BC),  LKSET,  LJSST, 

2946 

4> 

[PGMNXtBOl,  [T«N(BC)1,  [PNSPX(BC)],  tPFOAX(BC)l, 

2947 

4! 

(PARLX(BC)],  [PGDRG(BC)],  [PAJK] ,  [PFJE] ,  B6PDT(BC)  . 

2948 

4! 

USBTX(BC)  ); 

2949 

4! 

ENDIF; 

2950 

3!$ 

$ 

2951 

3! 

IF  BLOAD  <>  0  OR  BNODES  <>  0  OR  BFLUTR  <>  0  OR  BDYN  <>  0  THEN 

2952 

4!$ 

$ 

2953 

4!$ 

REDUCE  THE  MATRICES  WITHOUT  AEROBLASTIC  CORRECTIONS 

$ 

2954 

4!$ 

$ 

2955 

4! 

IF  HQDR  <>  0  TBEI 

1 

2956 

S!$ 

$ 

2957 

5!$ 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 

$ 

2958 

5!$ 

$ 
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2959 

5! 

PRIMT ( -LOG-  ( •  SYMMETRIC  DYNAMIC  REDUCTION* )  ■ )  ; 

2960 

S!$ 

$ 

2961 

51 

[MAAJ  TRANS  (  EGSUBO(BCn  )  *  t  [HPPXl  *  EGSUBO(BC)l  1; 

2962 

5! 

tKAAl  :«  TRANS  {  [GSUBO{BC)l  )  *  t  [KFPX]  *  [GSUBO(BC)I  ]; 

2963 

5! 

IF  BLOAD  <>  0  tPAl  TRANS  (  [GSDBOEBOl  )  *  (PFXl  ; 

2964 

5! 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 

2965 

6! 

[IMPIJ  ; »  TRANS  {  EOGTKFl  )  *  (GSUBO  (BC)  I  ; 

2966 

6! 

CALL  TRNSPOSB  (  tWPll ,  IDGTKA]  )  ; 

2967 

6! 

ENDIF; 

2968 

5! 

ELSE 

2969 

5! 

IP  NOMIT  <>  0  THEN 

2970 

6!$ 

$ 

2971 

6!$ 

PERFORM  THE  STATIC  REDUCTION 

$ 

2972 

6!$ 

$ 

2973 

6! 

PRINT ( -LOG-  ( *  STATIC  CONDENSATION* )  - )  ; 

2974 

6!$ 

$ 

2975 

6! 

CALL  FRBDUCB  (  [KFPXl  ,  IPPXI  ,  lPFOAX(BC)J,  ,  [KOOINV(BC)l,  ,  , 

2976 

6! 

,  IGSDB0(BC)1.  EKAA),  EPA)  ,  EPOJ  .  USETX(BC)  ); 

2977 

6i$ 

$ 

2978 

6! 

IF  BMASS  <>  0  THEN 

2979 

7!$ 

S 

2960 

7!$ 

PERFORM  GUYAN  REDUCTION  OP  TBE  MASS  MATRIX 

$ 

2981 

7!$ 

$ 

2982 

7! 

CALL  PARTO  (  EMFPXl.  EMOOl .  ,  [MQA]  ,  (MAABARl  .  EPPOAX(BC)l 

); 

2983 

7! 

[MAA]  :»  EMAABAR]  +  TRANS  ([MOAJ)  *  EGStJBOEBC)  1  ♦ 

2984 

7! 

TRANS  (EGSUBO(BC)l)  *  [MOAl  ♦ 

2985 

7! 

TRANS(EGSUBO(BC)I)  *  t  [MOOl  •  [GSUBO  (BC)1  ); 

2986 

7! 

IF  NRSET  <>  0  tIPM(BC)l  [MOO]  *  EGSDBO(BC)I  +  EMOAl  ; 

2987 

7! 

ENDIF; 

2988 

6! 

IP  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  THEN 

2989 

7! 

CALL  ROWPART  [  EUGTKFI .  [UGTKOJ  ,  [UGTKABl  ,  [PFOAX  (BC)  1  )  ; 

2990 

7! 

ETMPIJ  .♦»  TRANS  (  EUGTKOl  >  •  [GSUBO  { BC)  ]; 

2991 

7! 

CALL  TRNSPOSE  (  [TMPll ,  ETMP2I  )  ; 

2992 

7! 

[UGTKAl  EUGTKAB}  +  ETMP21  ; 

2993 

7! 

ENDIF; 

2994 

6! 

ELSE 

2995 

6!$ 

$ 

2996 

6!$ 

NO  P-SBT  REDUCTION 

$ 

2997 

6!$ 

$ 

2996 

6! 

IKAAl  IKFPX]; 

2999 

6! 

IF  BLOAD  0  [PA]  EPFX)  ; 

3000 

6! 

IF  BFLUTR  <>  0  OR  BGUST  <>  0  OR  BBLAST  <>  0  [UGTKA]  :a[UGTKF]  ; 

3001 

6! 

IF  BMASS  <>  0  [MAA]  :>  [MFFX]  ; 

3002 

6! 

ENDIF; 

3003 

5! 

ENDIF; 

3004 

4!$ 

$ 

3005 

4! 

IF  NRSET  <>  0  THEN 

3006 

st$ 

$ 

3007 

5!$ 

PERFORM  THE  SUPPORT  SET  REDUCTION 

$ 

3008 

S!$ 

$ 

3009 

5! 

PRINT  ( -LOG-  ( *  SUPPORT  REDUCTION*  )  - )  ; 

3010 

5! 

CALL  PARTN  (  [KAA]  «  [KRR]  ,  [KLR]  ,  ,  [XLL]  .  [PARLX(BC)]  ); 

3011 

5! 

CALL  SDCOMP  (  [KLL] ,  [KLLIMV(BC}  ]  .  USBTX(&C}.  SINGLSET  ); 

3012 

5! 

CALL  FBS  (  tRLLINV(BC)]  ,  [KLR]  ,  (D(BC)],  >1  ); 

3013 

5! 

CALL  RBCHECK  (  BCID,  USBTX(BC)  ,  BGPDT(BC)  ,  [D(BC)],  [KLL]  . 

3014 

5! 

[KRR].  [KLR]  }; 

3015 

5!$ 

$ 

3016 

5!$ 

CALCULATE  THE  REDUCED  MASS  MATRIX 

S 

3017 

5!$ 

$ 

3018 

5! 

CALL  PARTN  ([MAA].  [MRRBAR]  ,  [MLR].  .  [MLL]  .  [PARLX  (BC) )  )  ; 

3019 

5! 

IIFR(BC)]  ;«  [MLLl  *  [D(BC)]  +  (MLR); 

3020 

5! 

(MRR(BC)]  [NRRBAR]  >  TRANS  (  [MLR]  )  *  ED(BC)] 

3021 

S! 

TRANS  (  [D(BC)]  )  -  EIFR(BC}]; 

3022 

5! 

CR22]  TRANS  <  [D(BC)]  )  *  [MLR]  [HRRBAR]  ; 

3023 

5!$ 

S 

3024 

51 

IP  BLOAD  <>  0  THEN 

3025 

61$ 

S 

3026 

61$ 

PROCESS  STATICS  HITB  INERTIA  RELIEF 

$ 

3027 

61$ 

$ 

3028 

6! 

PRINT  ( -LOG-  (  '  »>OISCIPLINE :  STATICS  ( INERTIA  RELIEF)  •  ] 

I-); 

3029 

6! 

(31LL  RONPART  (  [PA].  [PR].  [PLBAR]  .  [PARLX (BC)]  ); 

3030 

6! 

(LHS(BC)]  (MRR(BC>]; 

3031 

6! 

[RHS(BC))  TRANS  ([D{BC)])  *  [PLBAR]  [PR]  ; 

3032 

6! 

CALL  INERTIA  (  [LHS  (BC)  ]  ,  [RHS  (BC)  ]  .  [AR]  )  ; 

3033 

61 

[AL]  :-  [D{BC)]  *  [AR]  ; 

3034 

6! 

CALL  RONMERGE  (  [AA] .  [AR] .  [AL]  .  [PARLX (BC)]  ); 

3035 

6! 

ERHS(BC)]  :«  [PLBAR]  •  [IFR(BC)]  *  [AR]  ; 

3036 

6! 

CALL  FBS  (  [KLLINV(BC)].  [RHS(BC}].  [UL]  ); 

3037 

6! 

CALL  YSMERGE  (  [UA]  .  .  [UL]  .  [PARLX  (BC)  ]  )  ; 

3038 

6! 

ENDIF ; 

3039 

5! 

IF  BMODES  <>  0  THEN 

3040 

6! 

PRINT  ( -LOG-  (  *  »>DISCIPLINB :  NORMAL  MODES  *  )  *  )  ; 

3041 

6! 

CALL  REIG  (  .  BCID.  USBTX(BC)  .  [KAA]  .  [MAA],  [MRR(BC)]. 

3042 

6! 

[D(BC}}.  LAMBDA,  [PRIA]  .  [Mil].  HSIZB(BC)  ); 

3043 

6! 

CALL  OFPNROOT  (  .  BCID.  LAMBDA  )  ; 

3044 

6! 

ENDIF; 

3045 

5! 

ELSE 

3046 

5!$ 

$ 

3047 

5!$ 

NO  SUPPORT  SET  REDUCTION 

$ 

3046 

51$ 

$ 
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3049 

5! 

IF  BLOAD  <>  0 

THEN 

3050 

6! 

PRIMT{"L0G 

-  ( '  »>DISCIPLINE :  STATICS  ’ )  " )  ; 

3051 

6! 

CALL  SDCOMP  {  (KAA)  ,  [KLLINV(BC)  1  ,  USBTX(BC).  SINGASET  ); 

3052 

6! 

CALL  FBS  ( 

[KLLINV(BC)],  [PA],  [UA]  ); 

3053 

6! 

ENDIF; 

3054 

5! 

IF  BMODES  <> 

}  THEN 

3055 

6! 

PRINT  ( •  LOG-  ( •  »>DISCIPLINB :  NORMAL  MODES  ’ )  " )  ; 

3056 

6! 

CALL  RSIG 

,  BCID,  USETX(BC),  [KAA]  ,  [MAA] ,  ,  ,  LAMBDA, 

3057 

6! 

[PHIA],  [Mil],  HSIZB(BC)  }; 

3058 

6! 

CALL  OFPMROOT  (  ,  BCID,  LAMBDA  )  ; 

3059 

6! 

ENDIF; 

3060 

5! 

ENDIF; 

3061 

4! 

ENDIF; 

3062 

31$ 

3063 

3! 

IP  BSAERO  <>  0  THEN 

3064 

4!$ 

3065 

4!$ 

PERFORM  STATIC  AEROBLASTIC  ANALYSES 

3066 

4!$ 

3067 

4! 

PRINT  ( "LOG- (• 

SAERO  INITIALIZATION* )•); 

3068 

4! 

CALL  TRNSPOSE  ( 

[GSTKF],  [GSKF]  ); 

3069 

4! 

IF  SYMTRN(BC)  THEN 

3070 

5! 

CALL  TRNSPOSE 

(  [HRGSTKF],  [GSRFHRT]  } ; 

3071 

5! 

CALL  TRNSPOSE 

{  [HIGSTKP],  [GSKFHITl  >; 

3072 

5! 

ENDIF; 

3073 

4! 

LOOP  TRUE; 

3074 

4! 

SUB  : -  0 ; 

3075 

4! 

WHILE  LOOP  DO 

3076 

5! 

SUB  SUB  4-  1; 

3077 

5! 

CALL  PTRIMDRV 

(  BCID,  SUB,  TRIMDATA,  METHOD,  MODEL,  MACH, 

3078 

5! 

SYM,  SAMODEL,  SAEMODEL,  STDYGEOM,  RIGDALOD, 

3079 

51 

RIOJSLOD,  FLBXLOAD,  AICMAT,  AEROGRID,  CAEROBOX, 

3080 

5! 

SACOMPS,  SAGEOM,  [AIC],  [AAIC]  ,  [ASAICJ  ); 

3081 

5! 

CALL  SAERODRV 

(BCID,  SUB,  LOOP,  MINDEX,  SYM,  MACH,  QDP, 

3082 

5! 

TRIMDATA,  TRIMRSLT,  METHOD,  1) ; 

3083 

S!$ 

3084 

S!$ 

ADJUST  THE  KPP  MATRIX  AND  DETERMINE  THE  RIGID  AIR  LOADS 

3085 

5!$ 

3086 

5! 

IF  SYMTRN(BC) 

THEN 

3087 

6! 

IP  ACSMTR(BC)  THEN 

3088 

7! 

[AICSl] 

-  [HRGTRF]  ♦  [TRANS  {  [ASAIC]  >  *  [GSKPHRT]  ]  ; 

3089 

7! 

(AICS21 

-  (HRGTICF)  *  [TRANS  ( [ASAIC]  )*  [GSKFHIT]  ]  ♦  [AICSl] ; 

3090 

7* 

[AICS3] 

-  [HIGTKFJ  *  [TRANS  (  [ASAIC1)*[GSKFHRT1]  ♦  [AICS21  ; 

3091 

7! 

tAICSJ 

»  [HIGTRFl  *  [TRANS  {  [ASAICJ  )*  [GSKFHIT]  ]  ♦  [A1CS3]  ; 

3092 

7! 

ELSE 

3093 

7! 

[AICSUM] 

(0.5)  [Aid  ♦  (0.5)  [AAIC]; 

3094 

7! 

[AICDIP] 

:«  (O.S)  [AIC]  -  (0.5)  [AAIC]; 

3095 

7! 

[AICSl] 

«  [HRGTKP]  *  [TRANS  (  [AICSOMJ  )  *  [GSKPHRT]  J  ; 

3096 

7! 

[AICS2] 

-  [HRGTKFJ  *  [TRANS  (  [AICDIF]  )*  [GSKPHIT]  ]  ♦  [AICSl]; 

3097 

7! 

[AICS3] 

-  [HIGTKF]  *  (TRANS  (  [AICDIP]  )•  [GSKFHRTl  1  ♦  (AICS21  ; 

3098 

7! 

[AICS] 

-  (HIGTKFJ  *  [TRANS  (  [AICSUM]  )  *  [GSKPHITJ  ]  +  (AICS3J  ; 

3099 

7! 

ENDIF; 

3100 

6! 

ELSE 

3101 

6! 

IF  SYM  -  1 

[AICSl  [GTKF]  *  [TRANS  {  [AIC]  )*  [GSKF]  ]  ; 

3102 

6! 

IF  SYM  -  -1 

(AICSJ  [GTKF]  ♦  [TRANS  ( [AAIC]  )*  [GSKF]  ]  ; 

3103 

6>$ 

3104 

6!$ 

ADD  IN  OPTION  FOR  ASYMMETRIC  AIC 

3105 

6!$ 

3106 

6! 

IF  SYM  -  0 

[AICSJ  :«  (GTKPJ  *  (TRANS  {  [ASAIC]  )*  [GSKFJ  J  ; 

3107 

6! 

ENDIF; 

3108 

S!$ 

3109 

5!$ 

3110 

S!$ 

DEFINE  ZERO  LOAD  VECTOR  FOR  ACCELERATION  PARAMETERS 

3111 

5!$ 

3112 

5! 

CALL  ACCPGEH 

t,  BCID.  SUB,  SYMTRN(BC).  RIGDALOD,  RIGDSLOD, 

3113 

5! 

STDYGEOM,  TRIMDATA,  CONLINK,  TRIMTOC,  [KPPX]  , 

3114 

5! 

TXABEL,  [ACCFORCE]  ,  [ACCELQAD]  ,  MACH)  ; 

3115 

5!$ 

3116 

S!$ 

3117 

5!$ 

USER  DEFINED  LOADS  FROM  STATIC  LOAD  PARAMETER  DEFINITION 

3118 

5!$ 

3119 

5! 

CALL  UDBFGEN  BCID*  SUB,  SYMIRNCBC)  ,  RIOISLOD,  [UDGFORCEl , 

3120 

S! 

[UDFAZX)ADJ,  GSIZE,  TLABEL,  TRIMDATA,  STDYGEOM, 

3121 

5! 

TRZMIOC.  MACH,  YBSUDEP)  ; 

3122 

5!$ 

3123 

5! 

IP  NMPC  <>  0  THEN 

3124 

6! 

CALL  GREDUCE  (,  lUDGFORCBl .  [PGNN(BC)  I  ,  [TMH(BC>  1 , ,  [ODNFORCEl 

3125 

6! 

ELSE 

3126 

6! 

[UDNFORCE] 

[UDGFORCE]; 

3127 

6! 

ENDIF; 

3128 

s*$ 

3129 

5! 

CALL  NREDUCE 

,  [UDNFORCEJ,  (PNSF(BC)l,  ,  ,  ,  ,  [ODFPORCEJ  ); 

3130 

S!$ 

3131 

5! 

IF  SYMTRN(BC) 

THEN 

3132 

6! 

CALL  UDEFTRAN  (,  BCID.  SOB,  [UDPFORCB]  ,  TRIMTOC.  [HFRBALT(BC) ; 

3133 

6! 

[HFIMAGTCBO]  ,  [UDFFORCX]  ); 

3134 

6! 

ELSE 

3135 

6! 

rODFFORCX) 

!-  [UDFPORCEl; 

3136 

6! 

ENDIF; 

3137 

S!$ 

3138 

S!$ 

$ 

$ 

$ 

$ 


$ 

$ 

$ 


$! 

$! 

$! 


$! 

$r 

9! 

$! 


$ 

$ 

$ 

$ 


$ 

$ 
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3139 

5!$ 

NEW  AIR  FORCE  MERGE  ROOTINB 

$! 

3140 

5!$ 

$! 

3141 

5! 

IP  SYMTRN(BC)  THEM 

3142 

6! 

CALL  ARFMRG  BCID,  SUB,  SYMTRN(BC),  TRIMDATA,  TLABEL, 

3143 

6! 

RIGDALOD.  STDVGEOM,  IHRGPTKP]  .  [HIGPTKP]  .  CASE, 

3144 

6! 

lAEROLOADl  .  tAIRPORCB]  .  TRIMTOC,  MACH,  YBSABRO)  ; 

3145 

6! 

ELSE 

3146 

6! 

CALL  ARPMRG  (,  BCID,  SOB.  SYMrRN(BC)  ,  TRIMDATA,  TIABEL, 

3147 

6! 

RiaiALOD,  STDYGBOM.  (GPTKPl  .  [HIGPTKP],  CASE, 

3148 

6! 

[ABROLOADl.  [AIRFORCE],  TRIMTOC,  MACH,  YBSABRO)  ,- 

3149 

6! 

BNDIP; 

3150 

5!$ 

$! 

3151 

5!$ 

MERGE  LOADS  IN  THE  AERODYNAMIC  DOMAIN  FOR  STABILITY  DERIVATIVES 

$! 

3152 

5!$ 

$! 

3153 

5! 

[SAROLOAD]  :«  [ACCELOAD]  ; 

3154 

5! 

IF  YESUDEF  THEN 

3155 

6! 

CALL  APPEND  (  [DDFALOAD]  ,  [SAROLOAD]  )  ; 

3156 

6! 

,  BNDIP; 

3157 

5! 

IP  YBSABRO  THEN 

3158 

6! 

CALL  APPEND  {  [AEROLQAD] ,  [SAROLOAD]  )  ; 

3159 

6! 

BNDIF; 

3160 

5! 

CALL  RIGDSTAB  (  BCID,  SUB,  TRIMTOC,  [SAROLOAD] ,  STDYGBOM, 

3161 

S' 

B6PDT(BC}  ,  QDP,  STABCFA  )  ; 

3162 

5!$ 

$! 

3163 

5!$ 

MERGE  LOADS  IN  THE  STRUCTURAL  DOMAIN  FOR  AEROLELATIC  SOLUTION 

$! 

3164 

5!$ 

$! 

3165 

5! 

[PAP]  [ACCFDRCB]  ; 

! 

3166 

5! 

IF  YESUDEF  THEN 

3167 

6! 

CALL  APPEND  {  [UDFFORCXl  ,  [PAF]  )  ,• 

3168 

6! 

ENDIF,- 

3169 

5! 

IF  YBSABRO  THEN 

3170 

6! 

[PAFX]  :«  <0DP)  [AIRFORCE]; 

3171 

6! 

CALL  APPEND  (  [PAFX]  ,  [PAF]  )  ,- 

3172 

6! 

BHDIF; 

3173 

5! 

CALL  UTMPRG  (  [PAFX)  )  ; 

3174 

5! 

[RAFF]  [KFFXl  *  (QDP)  [AICS] ; 

3175 

5!$ 

CALL  UTMPRG  (  [AZCS]  )  ; 

S! 

3176 

S!$ 

$! 

3177 

5!8 

REDUCE  THE  MATRICES  fiXTH  AEROELASTIC  CORRECTIONS 

$! 

3178 

5!$ 

SAVE  THE  SUBCASB/BC  DEPENDENT  DATA  FOR  SENSITIVITY  ANALYSIS 

$! 

3179 

5!$ 

$! 

3180 

5! 

IF  HSDR  <>  0  THEN 

3181 

6!$ 

$! 

3182 

6!$ 

PERFORM  THE  GENERAL  DYNAMIC  REDUCTION 

$! 

3183 

6!$ 

S! 

3184 

6! 

PRINT (  -LOG-  ( •  SAERO  DYNAMIC  REDUCTION' )  ” )  ; 

3185 

6! 

[MAAA]  :«  TRANS  (  [GSaBO(BC)]  )  -  [  [MFFX]  «  [GSUBO(BC)]  ]; 

3186 

6! 

[XAAA)  TRANS  {  [GSDBO(BC)]  )  *  [  [KAFF]  *  [GSUBOCBO]  1; 

3187 

6! 

[PAA]  TRANS  (  [GSDBO(BC)]  )  *  [PAF]; 

3188 

6! 

ELSE 

3189 

6! 

IP  NOMIT  <>  0  THEN 

3190 

7!$ 

$! 

3191 

7!$ 

PERFORM  THE  STATIC  REDUCTION 

S! 

3192 

7!$ 

Si 

3193 

7! 

PRINT ( -LOG- ( ’  SAERO  STATIC  CONDENSATION  * ) • ) ; 

3194 

7!$ 

$! 

3195 

7! 

IF  NRSBT  <>  0  AND  SUB  «  1  AND  BLOAD  -  0  AND  BNODBS  -  0  AMD 

3196 

8! 

BFLUIR  -  0  AND  BDYN  «  0  THEN 

3197 

8!S 

$! 

3198 

8!$ 

FORM  (KAA)  ON  SO  [D]  CAN  BE  FORMED 

$! 

3199 

8!$ 

$! 

3200 

8! 

CALL  FREDUCB  ( [KFFX] ,  .  [PFOAX(BC)].  ,  [KOOINV(BC)  ] ,  .  , 

3201 

8! 

[GSUBO(BC)].  [KAA],  ,  ,  USBTX(BC)  }; 

3202 

8! 

BNOIF; 

3203 

7!$ 

$! 

3204 

7! 

CALL  FREDUCB  (  [KAFF],  [PAF],  [PFOAX(BC)),  BSAERO, 

3205 

7! 

[XOOL  (BC,  SUB)  ]  ,  [KOOU  (BC,  SUB)  ]  , 

3206 

7! 

(KAO (BC, SUB)],  (GASUBO(BC,SUB)]  ,  [KAAA] . 

3207 

7! 

(PAA]  .  (PQARO(BC,SUB) ] .  USBTX(BC) ) ; 

3208 

7!$ 

$! 

3209 

7! 

IF  BMASS  <>  0  THEM 

3210 

8!$ 

Si 

3211 

8!$ 

PERFORM  GOYAN  REDUCTION  OF  THE  MASS  MATRIX 

Si 

3212 

8!$ 

S! 

3213 

8! 

CALL  PARTM  (  [MFFX]  ,  [MOO]  ,  ,  [HOA]  ,  [MAABAR]  . 

3214 

8! 

(PFOAX(BC)]  ); 

3215 

8! 

(MAAA)  [MAABAR]  >  TRANS  ( [MOA] )  *  [GASUBO(BC,SUB)  ]  > 

! 

3216 

8! 

TRAMS (  [GASUBO{BC, SUB)])  *  [MOA] 

3217 

8! 

TRANS  (  [GASUBOCBC,  SUB)])  *  [[MOO]  * 

3218 

8! 

[6ASUB0(BC.SUB)]]  ; 

3219 

8! 

IF  NRSBT  <>  0 

3220 

9! 

[IFMA(BC,SUB)]  [MOO]  *  [GASUBO(BC,SUB)  ]  [MOA]  ; 

3221 

8! 

BNDIP ; 

3222 

7! 

ELSE 

3223 

7!$ 

Si 

3224 

7!$ 

NO  F-SBT  REDUCTION 

Si 

3225 

7!$ 

Si 

3226 

7! 

IF  NRSBT  <>  0  AND  SUB  -  1  AND  BLOAD  -  0  AND 

3227 

8! 

BMODBS  «  0  AND  BFLUTR  >  0  AND  BDYN  -  0  THEN 

3228 

8!$ 

$! 
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3229 

0!$ 

FORM  [KAA]  ON  FIRST  PASS  SO  [D]  CAN  BB  FORMED 

$! 

3230 

8!$ 

$1 

3231 

8! 

[KAAl  :»  (KFFXl; 

1 

3232 

8! 

ENDZF; 

t 

3233 

7! 

CKAAA]  ;  -  [KAPF]  ; 

; 

3234 

7! 

IMAAAl  IMFFXI ; 

f 

3235 

7! 

[PAA]  :»  [PAF] ; 

1 

3235 

7» 

ENDIF; 

I 

3237 

6! 

BNDXF; 

t 

3238 

5!$ 

$1 

3239 

5! 

IP  KRSBT  <>  0  THEN 

j 

3240 

5! 

3241 

6!$ 

PERFORM  THE  SUPPORT  SET  REDUCTION 

$! 

3242 

6!$ 

$! 

3243 

6> 

PRINT  ( "LOG-  ( •  SAHRO  SUPPORT  REDUCTION  * )  " )  ? 

J 

3244 

6!$ 

$! 

3245 

6! 

IF  SUB  -  1  AND  BLQAD  -  0  AND  BMODBS  -  0  AND  BFLUTR  -  0 

! 

3246 

7! 

^  AND  BDYN  «  0  THEN 

1 

3247 

7!$ 

$! 

3248 

7!$ 

[D]  WAS  NOT  COMPUTED  FOR  NCW-SAERO  DISCIPLINES  SO 

$! 

3249 

7!$ 

NEED  TO  COMPUTE  IT  NOW 

$! 

3250 

7!$ 

$1 

3251 

7! 

CALL  PARTN  (  [KAA],  [KRR] ,  [KLR]  ,  ,  [KLL] ,  [PARLX(BC)]  ); 

1 

3252 

7! 

CALL  SDCOMP  (  [KLL) ,  [KLLINV(BC) )  ,  USBTX<BC) ,  SINGLSBT  ); 

J 

3253 

7! 

CALL  FBS  {  [KLLINV{BC)  J .  [KLR] .  (D(BC)),  -1  ); 

j 

3254 

7! 

CALL  RBCHECK  (  BCID,  USETXiBC)  ,  BGPDT(BC)  ,  [D(BC)],  [KLL], 

1 

3255 

7! 

[KKR].  [KLR]  ); 

! 

3256 

7! 

ENDIF; 

1 

3257 

6!$ 

$! 

3258 

6!$ 

CALCULATE  THE  REDUCED  MASS  MATRIX 

$! 

3259 

6!$ 

$! 

3260 

6! 

CALL  PARTN  ( [MAAA]  ,  [MRRBAR]  ,  [MLR]  ,  ,  [HLL]  ,  [PARLX(BC)  ]  }  ; 

{ 

3261 

6' 

[R13(BC.SUB)]  :«  [HLL]  *  [D{BC)]  ♦  [MLR]; 

1 

3262 

6! 

[R33]  :«  [MRRBAR]  •t'  TRANS  (  [MLR]  )  "  [D(BC)]  * 

1 

3263 

6! 

TRANS  (  [D(BC>]  )  *  [R13  (BC, SUB)  ]  ; 

1 

3264 

6! 

[R221  TRANS  (  [0(BC>I  )  •  [MLR]  i-  [MRRBAR]; 

1 

3265 

6! 

CALL  TRNSPOSE  (  [R13  (BC.SUB)  ]  ,  [R21  (BC.  SUB)  ]  ); 

1 

3266 

6!$ 

$! 

3267 

6!$ 

PROCESS  STEADY  ABROELASTIC  DISCIPLINE 

$! 

3268 

6!$ 

$! 

3269 

6! 

PRINT  ( "LOG-  ( •  >»DISCIPLINB :  STEADY  AERO  * )  "  )  ; 

! 

3270 

6! 

CALL  PARTN  (  [KAAA]  ,  [KARR],  [R12  (BC,SUB)  ]  .  (KARL),  [Rll]  , 

1 

3271 

6! 

[PARLXCBO]  ); 

I 

3272 

6! 

(R32(BC,SUB)]  TRANS ((D(BC}])  *  [R12 (BC,SUB)  ]  >  [KARR]  ; 

! 

3273 

6! 

[R31(BC,SUB)]  TRANS ((D(BC)])  *  [Rll]  [KARL]  ; 

! 

3274 

61$ 

$! 

3275 

6! 

CALL  DBCOMP  (  [Rll],  (RLll  (BC,SUB)  ]  ,  [RUll  (BC,  SUB)  ]  ); 

j 

3276 

6!$ 

$! 

3277 

6! 

CALL  ROWPART  (  [PAA],  [PARBAR]  .  [PAL],  [PARLX(BC)]  ); 

1 

3278 

6! 

CALL  6FBS  (  [RLll  (BC.  SUB)  ]  ,  [RDll  (BC,  SUB)  ]  ,  [PAL], 

I 

3279 

6! 

[R11PAL(BC,SUB)].  >1); 

1 

3280 

6! 

[PRXGID]  ;•  [PARBAR]  •*.  TRAMS  (  [D  (BC)  ]  )  *  [PAL]  ; 

J 

3281 

6! 

[PI]  ;>  (R21(BC,SDB)]  *  [RllPAL  (BC.  SUB)  1  ; 

! 

3282 

6! 

[P2)  ;-  [PRIGID]  ^  [R31(BC,SUB)  ]  *  [RllPAL (BC.  SUB)  1  ; 

1 

3283 

6!$ 

$! 

3284 

6! 

CALL  GFBS  (  [RLll  (BC, SUB)  ] .  [ROll  (BC.SUB) ) .  [R12  (BC.SUB)  ]  , 

; 

3285 

6! 

[R1112 (BC. SUB) ] .  >1); 

1 

3286 

6! 

CALL  GFBS  (  [RLll  (BC, SUB)  ] .  [RUll  (BC,  SUB)  ]  ,  [R13  (BC.  SUB)  1 . 

I 

3287 

6! 

[R1113 (BC.SUB)].  -1); 

1 

3288 

6! 

[Klll  [R22]  [R21(BC,SUB)]  •  [R1112(BC,SUB)  ]  ; 

! 

3289 

6! 

(R12  (BC.SUB)]  :-  [R21  (BC,  SUB)  )  *  [R1113  (BC.  SUB)  )  ; 

1 

3290 

6! 

[K21  (BC.SUB)]  (R32  (BC.SUB)  ]  [R31  (BC.SUB)  ]  *  [R1112  (BC.SUB) 

];! 

3291 

6! 

[X22]  [R33]  -f  [R31  (BC.SUB)  ]  *  [R1113  (BC, SUB) )  ; 

I 

3292 

61$ 

$! 

3293 

6! 

CALL  DBCOMP  (  [Kll]  .  [KLll  (BC.  SUB)  ]  .  [KUll  (BC,  SUB)  ]  ); 

1 

3294 

6! 

CALL  GFBS  (  (KLll  (BC.  SUB)  ]  ,  [KUll  (BC.  SUB)  ]  .  [PI], 

1 

3295 

6! 

(PAR (BC.SUB)]  ); 

! 

3296 

6! 

CALL  GFBS  (  [KLll  (BC. SUB)  ] .  [KUll  (BC.  SUB)  ]  ,  (K12  (BC.SUB)  ] . 

J 

3297 

6! 

[K1112(BC,SUB)].-1  ); 

1 

3298 

6! 

[LHSA  (BC.SUB)]  :«  [K22]  ♦  [K21  (BC,  SUB)  ]  *  [K1112(BC.SUB)]; 

1 

3299 

6! 

[RHSA  (BC.SUB)]  (P2]  -  [K21  (BC.  SUB)  ]  *  (PAR  (BC,  SUB)  ]  ; 

; 

3300 

61$ 

$! 

3301 

6!$ 

FLEXIBLE  STABILITY  COEFFICIENTS  COMPUTATION 

$1 

3302 

61$ 

$! 

3303 

6! 

CALL  FLEXSTAB  (  ,  BCID.  MINDEX,  SUB.  SYM,  QDP,  TRIMDATA. 

! 

3304 

6! 

STABCFA.  STABCFS.  B6PDT(BC} .  [LHSA (BC. SUB) ] , 

1 

3305 

6! 

[RHSA(BC,SUB)]  .  [AAR],  [DBLTA(SUB)  ]  .  [FRIGID], 

! 

3306 

6! 

(R331.  CONST.  ABFL6(SUa).  [AARC] .  [DBLC] , 

1 

3307 

6! 

SYMTRN(BC).  STDY6B0M.  DOTRMCON  ); 

t 

3308 

6!$ 

$! 

3309 

81$ 

GENERATE  FLEXIBLE  STRUCTURAL  TRIM  PARAMETER  LOAD  VECTORS 

$! 

3310 

6!$ 

AMD  DEFLECTION  VECTORS  TO  BB  LOADED  INTO  GROUP  FLEXLOAD 

$1 

3311 

61$ 

$! 

3312 

6! 

CALL  GFBS  (  [RLll  (BC. SUB)  ] ,  [RUll  (BC. SUB)  ]  .  (R13  (BC.SUB)  ]  . 

t 

3313 

6! 

[ULFLX2] ,  -1)  ; 

3314 

6! 

[ULFLXl]  -  [R11PAL(BC,SUB)] ; 

! 

3315 

6! 

CALL  ROHMERGE  (  [UAFLXl] .  ,  [ULFLXl],  [PARLX(BC}]  ); 

J 

3316 

6! 

CJ(LL  ROWMERGE  (  [UAFLX2] ,  .  [ULFUC2)  ,  tPARLX(BC)]  }; 

3317 

6!$ 

$! 

3318 

6! 

IF  NOMIT  <>  0  THEN 

40 


3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 


7! 

7! 

7! 

7! 

7! 

7! 

7! 

7! 

7! 


CALL  GPBS  (  [KOOL(BC,SUB)l,  CKOOU{BC,  SUB)  1  ,  IPOARO(BC.  SUB)  ]  . 
[KOOPOA] .  1) ; 

CALL  TRNSPOSE  (  [KAO(BC, SUB) J .  [KAOT (BC, SUB)  1  ); 

CALL  GPBS  (  [KOOL(BC,SUB)1  ,  (KOOU<BC,  SUB)  1 .  1KA0T(BC,SUB)  ]  , 
[KOOKAO]  ,  -1)  ,* 

[UOFLXl]  :»  (KOOPOA]  [KOOKAO]  *  (UAFLXll  ; 

(UOFLX2]  :=  [KOOKAO] * [UAFLX2] ;  ' 

CALL  ROWMERGE  (  [UFPLXlJ  ,  [UOPLXl]  ,  [UAPLXl]  ,  [PPOAX{BC)l  )  ; 
CALL  ROWMBRGB  (  (UPPLX21  ,  tUOPLX21  ,  [UAPLX2]  ,  [PFOAXCBO]  ); 


3328 

7! 

ELSE 

3329 

7! 

[UPPLXl]  [UAPLXll; 

3330 

7! 

[UFPLX2J  [UAFLX2],- 

3331 

7! 

EHDIP; 

3332 

61$ 

3333 

6! 

IP  SVMTRN(BC)  THEN 

3334 

7! 

IP  ACSMTR{BC) 

THEN 

3335 

8! 

[PAG]  :  -  (QDP)  [GPTKG]  *  [KREALK]  *  [SAROLOADJ  ; 

3336 

8! 

[PAGIl  (QDP)  (GPTKGl  *  [KIMAGKJ  *  [SAROLOAD]  ; 

3337 

8! 

ELSE 

3338 

8! 

[PAG]  :«  (QDP)  (GPTKGl  *  [SAROLOADJ  ; 

3339 

8! 

ENDIP; 

3340 

7! 

ELSE 

3341 

7! 

[PAGl  :«  (QDP)  [GPTKGl  *  (SAROLOADJ  ; 

3342 

7! 

ENDIP; 

3343 

6!$ 

3344 

6! 

IP  SYMrRN(BC)  THEN 

3345 

7! 

[UPXIHRT]  ;«  (HFRBAL(BC)  1  *  [UFFLXll  ; 

3346 

7! 

(UFXIMITJ  : »  [HPIMAG  (BC)  1  *  (UPPLXl]  ; 

3347 

7! 

(UPX2HRT1  :  *  [HPRBAL  (BC)  )  *  [DFPLX21  ; 

3348 

7! 

I0PX2HIT1  :»  [HPIMAG (BC)  1  *  [DPPUC21  ; 

3349 

7! 

IP  ACSMTR(BC) 

THEN 

3350 

8! 

[GTKGKR] 

»  (GTKGl  *  (KRKALKJ  ; 

3351 

8! 

[6TKGKI] 

-[GTKG1*(KIMAGK1  ; 

3352 

8! 

[PLXTMPll 

»  (GSKPl  *  (HPRBAL  (BC)  1  +  (GSKPJ  *  (HPIMAG  (BC)  ] 

3353 

8! 

(FLXTMP21 

.  (  (KREALTl  *  [KIMAGTl  I  *  (PLXTMPl]  ; 

3354 

8! 

(PLXTMP31 

»TRANS  { (ASAICl )  *  (PLXTMPl]  ; 

3355 

8! 

[PLXKXl] 

»  (PIJCrMPSl  *  [UPPLXll  ; 

3356 

8! 

(FLXKX21 

-  [FLXTMP31  *  (UPPLX2)  ; 

3357 

8!$ 

3358 

8! 

(PLXPIRI  (QDP)  CGTKGKR)  *  (PLXKXll  ; 

3359 

8! 

[PLXPIII  (QDP)  (GTKGKIl  • (PLXKXll  ; 

3360 

8! 

[PLXP2R1  (QDP) [GTKGKRl  * tPLXKX21  ; 

3361 

8! 

(PLXP2I1  (WP)  tGTlCGKIl*£FLXKX2)  ; 

3362 

8! 

ELSE 

3363 

8! 

(PLXTMPSl 

«  (QDP)  (GTKGl  *  (TRANS  (  [AICl )  *  (GSKPl  1  ; 

3364 

8! 

(PLKTHPAl 

»  (QDP)  (GTKGl  *  (TRANS  (  [AAICl )  *  (GSKPl  1  ; 

3365 

8! 

(UPXISDM] 

.  (0.5)  (UPXIHRTI  ♦  (0.5)  (UPXIHITI ; 

3366 

8! 

(UPXIDIPI 

-  (0.5)  (UPXIHRTI  -  (0.5)  (UPXIHITI; 

3367 

8! 

[UFX2SUM] 

.  (0.5)  (UPX2HRT)  ♦  (0.5)  (UPXIHITI; 

3368 

8! 

IUPX2DIP] 

.  (0.5)  (UPXIHRTI  -  (0.5)  [UFKIHITI  ; 

3369 

8! 

[PLXPISUM] 

-  [PLXTMPSl  *  [UPXISUMI  ; 

3370 

8! 

[PLXPIDIP] 

•  (PLXTMPAl  *  (UPXIDIPI  ; 

3371 

8! 

[FLXP2SUM1 

«  {FLXTMPSl  *  (UFX2SUM1  ; 

3372 

8! 

IPLXP2DIP1 

.  [PLXTMPAl  •  (UPX2DIP]  ; 

3373 

8!$ 

3374 

8! 

[PLXPIRI  : 

-  (PLXP1SUM1  +  (PLXP1DIP1  ; 

3375 

8! 

(FLXPIII  : 

-  (PLXPISUM]  -  (PLXPIDIPI  ; 

3376 

8! 

(FLXF2R]  : 

•  (FLXP2SUM}  (PLXF2D1P1  ; 

3377 

8! 

[PLXP2I]  ; 

•  (PLXP2SUM1  • (PLXP2DIP]  ; 

3378 

8! 

ENDIP; 

3379 

7! 

ELSE 

3380 

7! 

IP  SYM  -  1  THEN 

3381 

8! 

(PLXTMPl 

: . (OOP) (GTKGl * (TRANS ( (AICl ) * (GSKPl  )  ; 

3382 

8! 

ENDIP; 

3383 

7! 

IP  SYM  -  -1  THEN 

3384 

8! 

(PLXTMPl 

:  -  (QDP)  (GTKGl  •  (TRANS  (  [AAICJ  )  *  (GSKPl  1  ; 

3385 

8! 

ENDIP; 

3386 

7! 

IP  SYM  -  0  TEEN 

3387 

8! 

[FLXTMP] 

:  -  (QDP)  (GTKGl  *  (TRANS  (  (ASAICl )  *  (GSKPl  1  ; 

3388 

8! 

ENDIP; 

3389 

7! 

(PLXPRCll  s- (PLXTMPl  *  (UPPLXll  ; 

3390 

7! 

[PLXPRC21  :-(PLXmPl*I0PPLX21  ; 

3391 

7! 

ENDIP; 

3392 

6!$ 

3393 

6!$ 

LOAD  GROUP  PLEXLQAD 

3394 

6!$ 

3395 

6! 

IP  SYMTRN(BC)  THEN 

3396 

7! 

CALL  PLXLODLD 

(  BCID,  SUB,  TRIMTOC.  TRIMDATA,  (PAGl, 

3397 

71 

(PAGIl  ,  (PLXPIRI  ,  (PLXPIII  ,  [PLXP2R]  . 

3398 

7! 

(PLXP2I1  ,  (MGGl  ,  (UPXIHRTI  .  [UPXIHITI 

3399 

7! 

(DPX2HRT1  ,  IUPX2HIT1  ,  BGPDT  (BC)  , 

3400 

7! 

PLBXLOAD,  SYMTRN(BC),  ACSMTR(BC)  , 

3401 

7! 

NBHITER  }; 

3402 

7! 

ELSE 

3403 

7! 

CALL  PLXLODLD 

(  BCID,  SUB,  TRIMTOC,  TRIMDATA.  [PAGl. 

3404 

7! 

(PLXPRCll  .  .  (PLXPRC2]  ,  .  [NGG] . 

3405 

7! 

(UPPLXll.  .  (UFPLX21,  ,  BGPDT(BC), 

3406 

7! 

PLBXLOAD,  SYMrRN(BC),  ACSWrR(BC)  , 

3407 

71 

NENITER  ); 

3408 

7! 

ENDIP; 
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3409 

6!$ 

3410 

6!$ 

3411 

6!$ 

3412 

6! 

3413 

6! 

3414 

6!$ 

3415 

6!$ 

3414 

6!$ 

3417 

6! 

3418 

6! 

3419 

6! 

3420 

7! 

3421 

7! 

3422 

7! 

3423 

7! 

3424 

7! 

3425 

7! 

3426 

7! 

3427 

7! 

3428 

7! 

3429 

7! 

3430 

7! 

3431 

7! 

3432 

7! 

3433 

6!$ 

3434 

6!$ 

3435 

6!$ 

3436 

6! 

3437 

6! 

3436 

6! 

3439 

6! 

3440 

6!$ 

3441 

6! 

3442 

6! 

3443 

6! 

3444 

6! 

3445 

6! 

3446 

6! 

3447 

6! 

3448 

6! 

3449 

6! 

3450 

6!$ 

3451 

6!$ 

3452 

6!$ 

3453 

6!$ 

3454 

6!$ 

3455 

6!$ 

3456 

6! 

3457 

6! 

3458 

5! 

3459 

4! 

3460 

3!$ 

3461 

3!$ 

3462 

3!$ 

3463 

3!$ 

3464 

3! 

3465 

4! 

3466 

5! 

3467 

5! 

3468 

5! 

3469 

5! 

3470 

6! 

3471 

6! 

3472 

6! 

3473 

6! 

3474 

6! 

3475 

6! 

3476 

6! 

3477 

6! 

3478 

6! 

3479 

6! 

3480 

6! 

3481 

6! 

3482 

6! 

3483 

6! 

3484 

5! 

3485 

4! 

3486 

5! 

3487 

6! 

3488 

6! 

3489 

5! 

3490 

6! 

3491 

6! 

3492 

5! 

3493 

5! 

3494 

5! 

3495 

5! 

3496 

5! 

3497 

5! 

3498 

5! 

$! 

GSNBRATB  TRIM  PARAMETER  BMST  DATA  $! 

$! 

CALL  PARMBMST  (  TRIHTOC.  FLEXLOAD,  [PAG]  ,  [PAGZ]  ,  [SAROLOAD]  .  > 

STDYGBOM,  SYMrRN(BC)  ,  ACSMTR  (BC)  ,  BMSIDATA  );  I 

$! 

GENERALIZED  TRIM  AND  TRIM  OPTIMIZATION  $l 

$I 

SCBITER  :»  0;  ! 

SCHCNVG  :>  FALSE;  ! 

NHXLE  NOT  SCHCNVG  DO  ! 

SCHITER  SCHITER  1;  ! 

CALL  SCHDULBR  {  BCID,  SDB,TRIMDATA,TRIMRSLT.  TRIMTOC,  ! 

[AAR] , [DELTA (SUB) ] , SCHITER, SCHCNVS  ) ;  ! 

CALL  FLBXTRIM  (  ,  BCID,  SUB,  SYH.  QDP,  ! 

TRIMDATA,  TRIMRSLT,  TRIMTOC,  ! 

tLHSA(BC,SUB)]  ,  [RHSA(BC.  SUB)  ]  ,  ! 

[AAR],  [DBLTA(SUB)] .  [PRIGID] ,  (R33]  );  ! 

CALL  FTRIMOPT  (  ,  BCID,  SUB,  STM,  QDP,  ! 

TRIMDATA,  TRIMRSLT,  TRIMTOC,  ! 

(LHSA(BC,SUB)]  ,  [RRSA(BC,  SUB)  ]  ,  ! 

[AAR],  [DBLTA(SDB)] ,  [PRIGID],  {R33] ,  i 

BMSTDATA  );  ! 

ENDDO;  ! 

$l 

GENERATE  TRIWED  BMST  DATA  $ ! 

$1 

TRMRI6D  FALSE;  ! 

CALL  OFPBMST  (  ,  BCID.  SUB,  QDP,  [AAR],  [DELTA  (SUB)  ] ,  • 

TRIMDATA,  TRIMTOC,  BMSTDATA,  TRMRIGD.  ! 

OBMSTLOD  );  ! 

$! 

[AALl  [D(BC}]  *  [AAR];  ! 

CALL  ROMMERGB  (  [AAA(5UB)  ]  ,  [AAR],  [AAL]  ,  [PARLX(BC)]  );  ! 

[T2AR]  :»  [K1112(BC,SUB)]  *  [AAR]  [PAR(BC,SnB)  ]  *  ! 

[DBLTA(SUB)] ;  ! 

[UAL]  [R1112(BC,SUB)]  *  [UAR]  [R1113  (BC,  SUB)  ]  *  [AAR]  ! 

>  (RllPAL(BC,SaB)]  •  [DELTA(SUB)] ;  ! 

CALL  ROWMBRGE  (  [UAA(SUB)  ]  ,  [UAR],  [UAL],  [PARLX(BC)]  );  ! 

IP  NOMIT  <>  0  [PAO(SUB)]  [PQARO  (BC,  SUB)  ]  *  [DELTA  (SUB)]  ;  ! 


NO  SUPPORT  SET  REDUCTION  $! 

$l 

$l 

PROCESS  STEADY  AEROELASTIC  DISCIPLINE  $  • 

$! 

PRINT (  *LOG»  ( *  »>DXSCZPLINB :  STEADY  AERO ' )  *  )  ;  ! 

EHDIF;  ! 

ENDDO;  ! 


ENDIF;  ! 

$! 

PERFORM  ANY  DYNAMIC  ANALYSES  NOTE  THAT  THESE  ARB  INDEPENDENT  $! 

OF  THE  SUPPORT  SET  $! 

$! 

IP  BDYN  <>  0  THEN  ! 


IP  BFLOTR  <>  0  THEN  ! 

PRINT  ("LOG-  ( •  »>DISCIPL1NB  s  FLUTTER*  )  "  )  ;  ! 

SUBF  0;  ! 

LOOP  :■  TRUE;  ! 

MHXLB  LOOP  DO  ! 

SUBF  SUBF  1;  ! 

CALL  FLUTDRV  (  BCID,  SUBF,  LOOP  )  ;  ! 

OiLL  FLUTQHHL  (  ,  BCID,  SUBF,  B5IZB(BC),  PSIZB(BC),  [QKXL]  ,  ! 

[UGTKA],  [PHZA],  USBT(BC)  ,  ! 

[TMN{BC)],  (6SUB0{BC>],  NGDR,  AECOMPU,  GBOMUA,  ! 
[PHIXH],  [QBHLFL(BC,SUBF)],  OAGRDDSP  };  ! 

CALL  FLUTDHA  (  ,  BCID,  SUBF,  BSZZB(BC) ,  PSIZB(BC) ,  B6PDT(BC)  ,  ! 

USBT(BC>  ,  [MAA]  ,  [KAA]  ,  [7MN(BC)  ]  ,  [GSUBO  (BC)  ]  ,  ! 

NGDR,  LAMBDA,  [PHZA],  [MHHFL(BC,SUBF)  ] ,  ! 

[BHHFL(BC,SUBP)]  ,  [KHHFL  (BC,  SUBF)  ]  );  ! 

CALL  FLUTTRAN  (,BCZD.  SUBF.  [QHHLFL(BC,SUBF)  ]  ,  LAMBDA,  HSIZE(BC).! 

BSZZE(BC),  [MKBFL(BC,SUBF)],  [BHHFL  (BC,  SUBF)  ]  ,  ! 

[XHBFL(BC,SUBF))  ,  CLAMBDA  );  ! 


ENDIF;  ! 

IP  BDRSP  <>  0  THEN  ! 

IF  BMTR  <>  0  OR  BDTR  <>  0  THEN  ! 

PRINT("L06-(*  »>DISCIPLINB:  TRANSIENT  RESPONSE')*)  ;  ! 

ENDIF;  ! 

IF  BMFR  <>  0  OR  BDFR  <>  0  THEN  ! 

PRINT  ( "LOG-  ( *  »>DISCIPLINB ;  FREQUENCY  RESPONSE  * )  • )  ;  ! 

ENDIF;  • 

CALL  QHHL6BN  (BCID,  BSIZE(BC).  [QKXL],  [QKJL] ,  [UGTKA],  [PHIA] ,  i 

[PHIKB],  [QHBL],  [QE7L] )  ;  ! 

CALL  DMA  (  ,  BCID,  BSIZE(BC),  PSIZB(BC)  ,  B6PDT(BC) ,  USBT(BC),  [MAA],! 

[KAA],  [TMH(BC)],  [GSUBO (BC)],  NGDR,  ! 

LAMBDA,  [PHIA],  [MDD]  ,  [BDD]  ,  [XDDT]  ,  [KDDF] ,  ! 

[MHH]  ,  [BHHl ,  [KHHT] ,  [KHHF]  )  ;  ! 

CALL  DYNLOAD  (  ,  BCID,  GSIZE,  BSIZB(BC),  PSIZB(BC),  SMPLOD,  ! 
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3499 

5! 

3500 

S’ 

3501 

5* 

3502 

5! 

3503 

5! 

3504 

5! 

3505 

5! 

3506 

5< 

3507 

5! 

3508 

5! 

3509 

4! 

3510 

3! 

3511 

4! 

3512 

4! 

3513 

4! 

3514 

4! 

3515 

4! 

3516 

4! 

3517 

4! 

3518 

4! 

3519 

4! 

3520 

4! 

3521 

4! 

3522 

4! 

3523 

4' 

3524 

4! 

3525 

4! 

3526 

4! 

3527 

4! 

3528 

4! 

3529 

4! 

3530 

4! 

3531 

4! 

3532 

4! 

3533 

4! 

3534 

4! 

3535 

4! 

3536 

4! 

3537 

4! 

3538 

4! 

3539 

31$ 

3540 

3!$ 

3541 

3!$ 

3542 

3! 

3543 

3! 

3544 

3! 

3545 

4!$ 

3546 

4!$ 

3547 

4!$ 

3548 

4!$ 

3549 

4! 

3550 

4! 

3551 

5! 

3552 

5! 

3553 

5! 

3554 

5! 

3555 

6! 

3556 

6! 

3557 

6! 

3558 

6! 

3559 

5! 

3560 

4! 

3561 

5! 

3562 

6! 

3563 

6! 

3564 

6! 

3565 

6!$ 

3566 

6!$ 

3567 

6!$ 

3568 

6!$ 

3569 

6! 

3570 

6! 

3571 

7! 

3572 

7! 

3573 

7! 

3574 

7! 

3575 

7! 

3576 

6! 

3577 

5! 

3578 

4! 

3579 

5! 

3580 

5! 

3581 

5! 

3582 

5! 

3583 

4! 

3584 

5! 

3585 

5! 

3586 

S! 

3587 

5! 

3588 

4! 

BGPDT(BC)  ,  USBT(BC>  .  ITMI{BC)  1  .  [GSOBO{BC)  1  , 
NGDR,  IPHIAl  ,  IQHJLl  ,  [PDTl  ,  [PDPJ  , 

[PTGLOADl  .  IPTHLOAD]  ,  IPPGLOAD]  ,  tPFHLOADl  ); 
rar.T.  nvwPSP  (BCID,  BSIZB{BC)  ,  IMDD)  ,  [BDDI  ,  (KDDT]  ,  [KDDPl  . 

[MHHJ,  [BHHl,  [KHffTl,  IKHHP]  ,  [POT],  [PDPl  , 
tQHHL]  ,  [UTRANAl  .  lUPRBQAl  ,  lOTRANI]  ,  lUFRBQU  . 
{OTRANEI ,  lUPREQEJ  ) ; 

IP  BMTR  <>  0  (UTRANA)  {PHIAJ  *  ttJTRANIJ  ; 

IP  BMPR  <>  0  [UFREQAl  :»  tPHIAl  *  [UFREQI]  ; 

BNDIF; 

BNDIP; 

IP  BBLAST  <>  0  THEN 

PRIKT  {  "LOG- ( •  »>DISCIPLIKB:  BLAST*)**),' 

CALL  BLASTPIT  (  BCID,  (QJJLl .  IMATTR] ,  [HATSS]  ,  BQDP,  [BPRC]  , 
[DWNHSHl,  KSI2S{BC),  CID2] ,  IMPART),  lOGTKAJ . 
IBLGTJAl ,  [BLSTJAl  ) ; 

CALL  COLPART  (  [PHIA] ,  ,  [PHIBl ,  IMPART)  ) ; 

pALL  ROWMBRGE  (  IPHIR) .  [ID21  ,  ID  (BO),  IPARLX(BC))  ); 

CALL  C0IMSR6B  (  IPHIB] ,  IPHIR) ,  IPHIB] ,  IMPART)  )  ; 

IGBNM]  TRANS!  IPHIB)  )  *  I  IMAAJ  *  IPHIB)  J; 

IGKNK)  TRANS!  IPHIB)  )  *  I  IKAA)  *  IPHIB)  ); 

IDTSLP)  TRANS  (  IBLSTJAJ  )  *  IPHIB); 

(FTP)  :  -  TRANS  (  [PHIB]  )  *  IBLGTJA)  ; 

IGENP]  :»  (BQDP)  (FTP)  •  (BPRC)  ; 

(GBNFA)  ; «  (BQDP)  (FTP)  *  (MATSS)  ; 

(GBNQ)  :»  IGBNPA)  ♦  IDTSLP); 

(GBNQL)  :«  (BQDP)  (FTP)  •  IMATTR); 

CALL  PARTN  (  (GBNQ)  .  IQRR)  ,  ,  IQRB)  ,  (QBE)  ,  IMPART]  )  ; 

CALL  PARTN  (  (GKNK)  ,  ,  ,  ,  [KBB)  .  (MPART)  )  ; 

IKBQB)  IQBB)  +  [KBB); 

CALL  DBCOMP  (  [KBQE] ,  (LKQ) ,  [URQ]  ) ; 

CALL  ROWPART  (  [GBNP)  ,  IGPR)  ,  IGFB)  ,  IMPART)  )  ; 

CALL  GFBS  (  [LKQ] ,  lOTQ) ,  IGPE) ,  (BTBM)  >  ; 

(DEU4]  :«  -IQRB]  *  IBTEM)  ♦  (GPR)  ; 

CALL  BLASTRIM  (  BCID,  (DBLM)  ,  IMRR(BC)I.  lURDB)  ,  IDBLB)  ); 

[BIAS]  (BTBM)  «  (DBLB)  ; 

ISLPMCX}]  TRANS  (  (BLSTJA)  )  *  IPHIB); 

CALL  BLASTDRV  {  BCID,  IGBNM) .  (GBNK)  ,  IGBNPA) ,  IGBNQL)  ,  IDBLB)  . 

(DRDB),  IDHNNSH],  ISLPNOD] ,  [BIAS],  (UBLASTI)  ); 


BNDIP; 


BEGIN  THE  DATA  RBCOVERY  OPERATIONS 

IP  HBNDCOND  >  1  CALL  NDLLMAT  {  lUF)  ,  lAF)  ,  (PHIP)  ,  (UPX)  ,  lAPX)  )  ; 
IF  NBNDCOND  >  1  CALL  NDLUtAT  (  lUAF]  ,  EUAFI)  ,  lAAF)  ,  EAAFI]  )  ; 

IF  NGDR  <>  0  THEN 

DATA  RBCOVERY  WITH  GDR 

APPEND  THB  GDR'GBNBRATBD  DOFS  TO  THE  F-SBT 

PRINT ( -LOG- ( •  DYNAMIC  REDUCTION  RECOVERY* )  ■  )  ; 

IP  BLQAp  <>  0  THEN 

(UFGDR)  (GSDBO(BC))  *  lUA]  ; 

CALL  ROWPART  (  (UA)  ,  (UJK]  ,  ,  EPAJK]  )  ; 

CALL  ROWMBRGE  (  (X7FX)  ,  [UJK]  ,  lUPGDR)  .  (PFJK)  )  ; 

IP  NRSBT  <>  0  THEN 

[APGDR]  (GSUBO(BC)I  *  (AA) ; 

CALL  ROWPART  (  [AA] ,  (UJK) ,  ,  IPAJK]  }  ; 

CALL  ROWMERGB  (  (AFX) ,  (UJK)  .  [AFGDR] ,  [PFJK]  )  ; 

BNDIP; 

BNDIF; 

IF  BSABRO  <>  0  TBBN 
FOR  S  -  1  TO  SUB  DO 

[UFGDR]  [GSUBO(BC))  *  {UAA(S}]; 

CALL  ROWPART  (  [UAA(S)],  [UJK],  ,  [PAJK]  ); 

CALL  ROWMERGB  (  [UAFTMP] ,  [UJK]  ,  [UFCH^R]  ,  [PFJK]  )  ; 

MERGE  THB  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 
MATRIX  OP  RBSPONSB  QUANTITIBS  FOR  FURTHER  RECOVERY 

CAU,  SABROKRG  (  BCID,  S,  TRIMDATA,  [UAFX] ,  [UAFTMP]  ); 

IP  NRSBT  <>  0  THEN 

(APGDR)  IGSUBOIBOI  *  [AAA(S)]; 

CALL  ROWPART  (  [AAA(S)1.  [UJK],  .  (PAJK)  ); 

CALL  ROWMERGB  (  [AAFTMP]  ,  [UJK] ,  iMfGDR.]  ,  [PFJK]  }  ; 
CALL  SAEROMRG  (  BCID,  S,  TRIMDATA,  (AAFX) ,  (AAFIMP)  >  ; 
BNDIF; 


BNDIF; 

IF  BHODES  <>  0  THEN 

(UFGDR)  ;»  tGSUBO(BC))  *  (PHIA)  ; 

CALL  ROWPART  (  [PHIA]  ,  [UJK]  .  ,  (PAJK)  )  ; 

CALL  ROWMERGB  (  [PHIP] ,  (tKTK) ,  (UFGDR) ,  [PFJK]  )  ; 

ENDIP;  _ 

IP  BDTR  <>  0  OR  BMTR  <>  0  THEN 

[UFGDR)  (GSUBO(BC))  *  (OTRAHA)  ; 

CALL  ROWPART  (  (UTRANA)  ,  [UJK]  ,  .  [PAJK]  )  ; 

CALL  ROWMERGB  (  [DTRANP) ,  (UJK)  ,  [DPGDRI ,  IPFJK)  )  ; 
BNDIP; 

IP  BDPR  <>  0  OR  BMPR  <>  0  THEN 
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3589 

5! 

3590 

5! 

3591 

5! 

3592 

5! 

3593 

4! 

3594 

4! 

3595 

5!$ 

3596 

5!$ 

3597 

5!$ 

3598 

51 

3599 

5! 

3600 

6! 

3601 

6! 

3602 

6! 

3603 

7! 

3604 

6! 

3605 

5! 

3606 

6! 

3607 

7! 

3608 

7! 

3609 

7! 

3610 

7! 

3611 

7!$ 

3612 

7!$ 

3613 

7!$ 

3614 

7!$ 

3615 

7! 

3616 

7! 

3617 

8! 

3618 

8> 

3619 

8! 

3620 

8! 

3621 

7! 

3622 

6! 

3623 

S' 

3624 

6! 

3625 

6! 

3626 

6! 

3627 

S! 

3628 

6! 

3629 

61 

3630 

61 

3631 

5! 

3632 

6! 

3633 

6! 

3634 

6! 

3635 

5! 

3636 

S!$ 

3637 

5!$ 

3638 

5!$ 

3639 

5! 

3640 

6! 

3641 

6! 

3642 

6! 

3643 

5! 

3644 

6! 

3645 

7!$ 

3646 

7!$ 

3647 

7!$ 

3648 

7!$ 

3649 

7! 

3650 

7! 

3651 

7! 

3652 

6! 

3653 

5! 

3654 

5! 

3655 

5! 

3656 

5! 

3657 

4! 

3658 

3!$ 

3659 

3! 

3660 

4! 

3661 

5* 

3662 

5! 

3663 

5! 

3664 

4! 

3665 

5! 

3666 

5! 

3667 

5! 

3668 

5! 

3669 

5! 

3670 

4! 

3671 

4! 

3672 

5! 

3673 

5! 

3674 

5! 

3675 

4! 

3676 

5! 

3677 

5! 

3678 

5! 

[UFGDR]  : «  [6SUB0  (BC)  ]  *  [UFREQA]  ; 

CALL  ROWPART  (  [UFRBOA]  .  [UJK]  .  ,  [PAJK]  )  ; 

CALL  ROHKBRGB  (  [UFRBQF] ,  (UJK}  .  [UFGDR] .  (PPJKj  )  ; 

BNDIP; 

ELSE 

IP  MOHIT  <>  0  THEN 

DATA  RECOVERY  WITH  STATIC  CONDENSATION 

PRINT ( -LOG- ( ■  STATIC  CONDENSATION  RECOVERY ' ) • ) ; 

IP  BLQAO  <>  0  THEN 

CALL  RECOVA  (  [UA]  ,  (POl  .  (GSUB0(BC}1.  NRSET,  [AA]  , 

[IFN  (BC)  1  .  ,  (KOOINV  (BC)  ]  , ,  [PFOAX  (BC)  ]  ,  CUFX]  )  ; 
IP  NRSET  c>  0  CALL  RECOVA  (  [AA] ,  ,  [6S0B0 (BC)  , 

[PFOAX  (BC)l,  (APXl  ); 

BNDIP; 

IF  BSAERO  <>  0  THEN 
^  FOR  S  «  1  TO  SUB  DO 

CALL  RECOVA  (  [UAA(S)],  [PAO(S)],  EGASUBO(BC, S)  1  . 

NRSET,  [AAA(S)],  [IPNA(BC,S)  ]  ,  BSAERO, 
(XOOL(BC,S)] ,  IKOOU(BC,S)], 

(PFOAX (BC)],  (UAPTMP]  ); 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 
MATRIX  OP  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

CALL  SAEROHRG  (  BCID,  S,  TRIMDATA,  (UAFX)  .  (UAFTMP]  ) ; 

IF  NRSET  <>  0  THEN 

CALL  RECOVA  (  [AAA (S) ],, (GASUBO(BC,S)]  ,,,,,, , 
(PFOAX(BC)],  (AAPTMP]); 

CALL  SABROMRG  (  BCID,  S,  TRIMDATA,  [AAFX] ,  lAAFTMP]  ); 
BNDIP; 


$ 

$ 

$ 


$ 

$ 

$ 

$ 


BNDIP; 

IF  BMODES  <>  0  THEN 

[PHIOl  :»  CGSUBO(BC)]  *  [PHIA] ; 

CALL  ROHMERGB  (  (PHIP]  ,  [PHIO]  ,  [PRIA]  .  [PFOAX  (BC)  ]  )  ; 

ENOIF; 

IP  BDTR  <>  0  OR  BMTR  <>  0  THEN 

CALL  RECOVA  (  [UTRANA] ,  .  (GSUBO  (BC)  1 ,,,,,,  , 

(PFOAX  (BC)l,  [UTRANF]  ); 

BNDIP; 

IP  BDFR  <>  0  OR  BMFR  <>  0  THEN 

CALL  RECOVA  (  [UFREQA]  ,  ,  [GSUBO  (BC)  ] . . 

[PFOAX  (BC)].  [DFRBQP]  ); 

BNDIP; 

ELSE 

DATA  RECOVERY  WITHOUT  F-SBT  REDUCTION 

IF  BLOAD  <>  0  THEN 
(UFX)  [DA]; 

IP  NRSET  <>  0  [AFX]  [AA]  ; 

BNDIP; 

IF  BSAERO  c»  0  THEN 
FOR  S  -  1  TO  SUB  DO 

MERGE  THE  CURRENT  SUBCASE  DEPENDENT  RESULTS  INTO  A  SINGLE 
MATRIX  OP  RESPONSE  QUANTITIES  FOR  FURTHER  RECOVERY 

CALL  SAEROHRG  (  BCID,  S,  TRIMDATA.  [UAFX],  [UAA(S)  ]  }; 

IP  NRSET  <>  0  CALL  SAERQHRG (BCID, S, TRIMDATA,  [AAFX],  [AAA(S)]) 
ENDDO; 

BNDIP; 

IF  BMODES  <>  0  [PHIF]  :»  [PHIA}  ; 

IP  BDTR  <>  0  OR  BMIR  «>  0  [UTRANF]  :  -  [UTRANA]  ; 

IF  BDFR  <>  0  OR  BMFR  <>  0  [UFRBQF]  :«  [UFREQA]  ; 

BNDIP; 

BHDIF; 

IF  SYKnUI(BC)  THEN 
IF  BLOAD  <>  0  THEN 

[UP]  [HPRBAL(BC)]  *  [UFX]  ; 

IF  NRSET  <>  0  [AF]  ;>  [HPRBAL(BC)]  *  [AFX]  ; 

BNDIF; 

IF  BSAERO  <>  0  THEN 

[UAF]  [HFREAL(BC)]  *  [UAFX]  ; 

[UAFI]  :«  [HFIMAG(BC)1  *  [UAFX]; 

IF  NRSET  <>  0  [AAF]  [HFREAL(BC)]  *  [AAFX]  ; 

IF  NRSET  <>  0  [AAFI]  [HFIMA6(BC)]  *  [AAFX]; 

BNDIF; 

ELSE 

IP  BLOAD  <>  0  THEN 
[OF]  [UFXl; 

IP  NRSET  <>  0  [AP]  :•  [AFX]  ; 

BNDIP; 

IF  BSAERO  <>  0  THEN 
[UAF]  [UAFX]; 

IF  NRSET  <>  0  [AAF]  :«  [AAFX]  ; 

ENDIF; 


! 


$ 

$ 

$ 


$ 

$ 

$ 

S 


$ 


! 

! 
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3679 

4! 

ENDIP; 

<  1 

36S0 

3!$ 

IP  NBNDCOND  >  1  CAZ«L  NULLMAT  (  lUNl  ,  (AN]  ,  [PHIN]  )  ; 

9  - 

3681 

3! 

3682 

3! 

IP  NSPC  <>  0  THKK 

$! 

3683 

4!$ 

3684 

4!$ 

DATA  RECOVERY  KITH  SPC- REDUCTION 

$ ! 
$! 

3685 

4!$ 

3686 

4! 

pRnrrcLOG-  ( ’  spc  recovery*  )  *)  ,• 

3687 

4! 

IF  BLOAD  <>  0  THEN 

3688 

5! 

CALL  YSMBRGE  (  lUNl  ,  [YS(BC)J.  [UP],  IPNSP(BC)I  ); 

3689 

5! 

raT.T.  OFPSPCP  {  0,  BCID,  1,  1,  6SIZE,  ESIZB(BC)  .  NGDR, 

3690 

5! 

[KFSl,  tKSSK  [UFl,  [YS(BC)1,  IPS], 

3691 

5! 

[PNSP(BC)1,  IPGMN<BC)1,  [PPJKl ,  ,  ,  , 

3692 

5! 

B6PDT(BC),  OGRIDLOD  ); 

3693 

5! 

IP  HRSBT  <>  0  CALL  YSMBRGE  (  (ANl  ,  ,  lAFj  ,  IPNSP(BC)1  ); 

3694 

5! 

ENDIP; 

3695 

4! 

IP  BSAERO  <>  0  THEN 

3696 

5! 

CALL  YSMBRGE  {  {UANl  .  (YS  (BC)  1  ,  [UAPJ  ,  [PNSP(BC)J  ); 

3697 

5! 

'  IP  KRSKT  <>  0  CALL  YSMBRGE  (  [AANJ ,  ,  lAAPJ .  IPNSP(BC)3  ); 

3698 

5! 

IP  SYKTRN{BC)  THEN 

3699 

6! 

CALL  YSMBRGE  (  [OANII ,  IYS{BC)],  lUAFI] ,  IPNSP{BC)]  ); 

3700 

6! 

IP  NRSET  <>  0  CALL  YSMBRGE  (  [AAKI]  ,  .  lAAPIl  ,  [PNSPCBC)]  ); 

3701 

6! 

ENDIP; 

3702 

5! 

ENDIP; 

3703 

4* 

IP  BMODES  <>  0  THEN 

3704 

5! 

CALL  YSMERGB  (  [PHINl .  CYS (BC)  1  ,  IPHIP] , 

3705 

5! 

[PNSP(BC)1  ); 

3706 

5! 

IP  DMODES  <>  0  CALL  OFPSPCP  <  0,  BCID,  2,  1,  GSIZE, 

3707 

6! 

BSIZB(BC).  NGDR, 

3708 

6! 

IKPSJ,  ,  IPHIPl.  ,  , 

3709 

6! 

tPNSP(BC) ] ,  [PGMN(BC) 1 ,  IPPJKl , 

3710 

6! 

,  ,  ,  B6PDT(BC),  OGRIDLOD  ); 

3711 

S! 

ENDIP; 

3712 

4! 

IP  BDTR  <>  0  OR  BWTR  <>  0 

3713 

5! 

CALL  YSMBRGE  (  lUTRANN]  .  [YS  (BC)  1 ,  tOTRANP]  , 

3714 

5! 

tPNSP(BC)].  BDTR  ); 

3715 

4! 

IP  BDPR  <>  0  OR  BMPR  <>  0 

3716 

5! 

CALL  YSMERGB  {  [UPREQN]  .  [YS  (BC)  ]  ,  (UFRBQP) , 

3717 

5! 

[PNSP(BC)1«  BDPR  ); 

3718 

4! 

IP  BPLUTR  <>  0 

3719 

5! 

r^TA.  OFPSPCP  (  0,  BCID,  4,  2,  GSIZE,  ESIZB(BC},  NGDR,  (KPS),  . 

3720 

5! 

IPHIP],  ,  ,  (PHSP(BC)l.  tPGMN(BC)l,  [PFJKl , 

3721 

S! 

,  ,  ,  B6PDT(BC),  OGRIDLOD  ); 

3722 

4! 

IP  BBLAST  <>  0  THEN 

3723 

5! 

(DBLASTPl  (PKEPl  *  IDBLASTI]  ; 

3724 

5! 

CALL  OPPSPCP  (  0,  BCID.  8,  1,  GSIZE.  BSIZEIBC)  .  NGDR, 

3725 

5! 

(KPSl,  ,  IDBLASTPl,  ,  ,  IWISP(BC)].  [PGMH(BC)1, 

3726 

5! 

(PPJK],  ,  .  ,  BGPDT(BC),  OGRIDLOD  ); 

1 

3727 

5! 

BNDIP; 

372B 

4! 

BLSB 

3729 

4!$ 

$! 

3730 

4!$ 

DATA  RECOVERY  WITHOCTT  SPC-RBDUCTION 

$! 

3731 

4!$ 

$l 

3732 

4! 

IP  BLOAD  <>  0  THEN 

3733 

5! 

IDNl  (DP); 

3734 

5! 

IP  HRSBT  <>  0  [AN]  [APJ  ; 

3735 

5! 

ENDIP; 

3736 

4! 

IP  BSAERO  <>  0  THEN 

3737 

5! 

rUANl  (UAP3; 

3738 

5! 

IF  NRSET  <>  0  [AAN]  (AAF]  ; 

3739 

5! 

IP  SYNTRN(BC)  THEN 

3740 

6! 

[DANII  (UAPII; 

3741 

6! 

IF  NRSET  <>  0  [AANI]  :•  [AAFI] ; 

3742 

6! 

ENDIP; 

3743 

5! 

ENDIP ; 

3744 

4! 

IP  BPKRJBS  <>  0  (PHIN]  (PHIF]  ; 

! 

3745 

4! 

IF  BDR  <>  0  OR  BMTR  <>  0  [DTRANN]  ;>  [UTRANA]  ; 

3746 

4! 

IF  BDPR  <>  0  OR  BHFR  <>  0  [UFRBQN]  (UPRBQA]  ; 

! 

3747 

4! 

ENDIP; 

S! 

3748 

3!$ 

3749 

3! 

IP  NBNDCQND  >  1  CALL  NULLMAT  (  (UG(BC)].  [AG(BC}],  (UAGIBC)]*  [AAG(BC)]. 

3750 

4! 

[PHIGIBOl,  [UAGKBO],  [AAGI  (BC)  ]  ); 

3751 

3! 

IP  NMPC  <>  0  THEN 

3752 

4!$ 

$! 

3753 

4!$ 

DATA  RECOVERY  WITH  MPC-REDDCTION 

$! 

3754 

4!$ 

3755 

4! 

PRINTCLOG-C  MFC  RECOVERY* )-)  ; 

3756 

4! 

IP  BLOAD  <>  0  THEN 

3757 

5! 

lOM]  [TMN(BC)]  *  [DNl  ; 

3758 

5! 

CALL  R0HMER6B  (  [UG(BC)3.  [UM]  ,  (UN],  (PGMN(BC)]  ); 

3759 

5! 

IP  NRSET  <>  0  THEN 

3760 

6! 

[UM]  :«  (TMM(BC)3  *  (AN]  ; 

3761 

6! 

CALL  RONMERGE  (  (AG(BC)],  [UN],  [AN],  [PGMN(BC)]  }; 

3762 

6! 

ENDIP; 

3763 

5! 

ENDIP; 

3764 

4! 

IP  BSAERO  <>  0  THEN 

3765 

5! 

(CM)  [TMN(BC)]  *  [UAN]  ; 

3766 

5! 

CALL  ROWMERGE  (  [UAGIBC)],  [UM]  .  [UAN],  [PGMK(BC)]  }; 

3767 

5! 

IP  NRSET  <>  0  THEN 

3768 

6! 

(UN]  [TMM(BC)1  *  [AAN]; 

45 


37€9 

6! 

CALL  ROWMERGB  (  tAAG(BC)l.  [OM],  [AAN]  .  tFGMK(BC)]  }; 

{ 

3770 

6! 

BKDIP; 

3771 

5! 

IF  SW!TRN<BC)  THEN 

1 

3772 

6! 

[UM]  tTTOKBC)]  *  (UANIl  ; 

1 

3773 

6! 

CALL  ROWMERGE  (  [UAGKBOl,  lUMl ,  ttlANI]  ,  [PGMN(BC)]  ); 

1 

3774 

6! 

IF  NRSBT  <>  0  THEN 

1 

377S 

7! 

IBM]  ITMKBOl  *  [AANI]  ; 

1 

3776 

7! 

CALL  ROWMERGE  (  [AAGI  (BC)  ]  ,  tOM]  .  [AANI],  tP®W(BC)  ]  ); 

1 

3777 

7! 

BNDIP; 

1 

3778 

6! 

ENDIF; 

1 

3779 

5! 

ENDIF; 

j 

3780 

4! 

IP  BMODES  <>  0  THEN 

t 

3781 

5! 

[DM]  :»  [IMNCBOl  *  [PHINl; 

1 

3782 

5! 

CALL  ROWMERGE  (  IPHIG(BC)1.  [OM]  .  [PHIN]  ,  [P®IN(BC)]  ); 

t 

3783 

51 

BNDIP; 

! 

3784 

4! 

IF  BDTR  <>  0  OR  BMTR  <>  0  THEN 

3785 

5! 

[DM]  [TONtBO]  *  lUTRANNI  ; 

3786 

5! 

,  CALL  ROWMERGE  (  [OTRANG]  .  (DM).  [UTSANN]  ,  {PGMN(BC)]  ); 

3787 

5! 

BNDIP; 

3788 

4! 

IP  BDFR  <>  0  OR  BMFR  <>  0  THEN 

3789 

5! 

tOM]  rTON(BC)]  *  lUPREQNl  ; 

! 

3790 

5! 

CALL  ROWMERGE  (  [DFREQG] ,  [\M]  .  [UFRBQM] ,  [FGMN(BC)]  ); 

3791 

5! 

ENDIF; 

3792 

4! 

ELSE 

3793 

4!$ 

3794 

4!$ 

DATA  RECOVERY  WITHOUT  MPC-REDOCTION 

$l 

3795 

4!$ 

3796 

4! 

IF  BLOAD  <>  0  THEN 

3797 

5! 

laG(BC)]  tUNJ; 

3798 

5! 

IF  NRSET  <>  0  [AG (BO)  :»  [AN]  ; 

3799 

5! 

ENDIF ; 

3800 

4! 

IF  BSAERO  <>  0  THEN 

3801 

5! 

[UAG{BC)]  :>  [UANl  ; 

3802 

5! 

IP  NRSET  <>  0  [AAG(BC)]  [AAN]  ; 

3803 

5! 

IP  SYMTRNCBC)  THEN 

3804 

6! 

[UAGKBO)  r*  [UANI]; 

3805 

6! 

IF  NRSBT  <>  0  lAAGKBC)]  :»  [AANI]  ; 

3806 

6! 

ENDIF; 

3807 

St 

ENDIF; 

3808 

4! 

IF  BMODES  <>  0  [PHIG(BC}]  [PHIN]  ; 

3809 

4! 

IF  BDTR  <>  0  OR  BMTR  <>  0  [UTRANG]  [UTRAHN]  ; 

1 

3810 

4! 

IF  BDFR  <>  0  OR  BNPR  <>  0  [UFREQG]  :•  [UFRBQN]  ; 

1 

3811 

4! 

BNDIP; 

! 

3812 

3!$ 

$! 

3813 

3J$ 

RECOVER  PHYSICAL  BLAST  DISCIPLINE  DISPLACEMENTS 

$! 

3814 

31$ 

$! 

3815 

3! 

IP  BBLAST  <>  0  [DBLA5TG]  [PHIG(BC)]  *  [UBLASTI]  ; 

1 

3816 

3!$ 

$! 

3817 

31$ 

HANDLE  OUTPUT  REQUESTS 

$! 

3818 

3!$ 

$! 

3819 

3! 

PRINTCLOG-C  OUTPUT  PROCESSING*  )•)  ; 

! 

3820 

3! 

IF  BSAERO  <>  0  THEN 

! 

3821 

4!$ 

$ 

3822 

41$ 

RECOVER  STATIC  ABROELASTIC  LOADS  DATA 

$ 

3823 

4!$ 

$ 

3824 

4t 

LOOP  :■  TRUE; 

3825 

4! 

SX]B  0; 

3826 

4! 

WHILB  LOOP  DO 

3827 

5! 

SUB  :«  SUB  4  1; 

3828 

5! 

CALL  SABRODRV  (BCID,  SUB,  LOOP,  MINDBX,  SYN,  MACH,  QDP,  TRIMDATA, 

3829 

5! 

TRIKRSLT,  METHOD  )  ; 

3830 

5!$ 

$ 

3831 

51$ 

CALL  THE  TRDWIED  LOADS  COMPUTATION  WITH  PROPER  MATRICES 

$ 

3832 

5!$ 

$ 

3833 

5! 

IF  SYM  -  1  THEN 

3834 

6! 

CALL  OPPALOAD  (  ,  BCID,  MINDBX,  SUB.  6SIZB.  TRIMDATA,  BGPDT(BC) 

, 

3835 

6! 

[GPTKGl,  [GTKG],  [GSTKG]  ,  QDP,  [SAROLOAD] , 

3836 

6! 

[DBLTA(SUB)].  [AlC]  , 

3837 

6! 

tUA6(BC)],  [MGG],  (AAG<BC)],  [KFS]  , 

3838 

6! 

[KSSI,  [UAF],  (YS(BC)l,  [PNSF(BC)}, 

3839 

6! 

(PGMN(BC)},  [PFJK],  HGDR,  USBT(BC) , 

3840 

6! 

06RIDLOD  ); 

3841 

6! 

ELSE 

3842 

6! 

IF  SYM  -  -1  THEN 

3843 

7! 

CALL  OPPALOAD (,  BCID.  MINDBX,  SUB.  GSIZE,  TRIMDATA.  BGPDT(BC>,: 

3844 

7! 

(GPTKGl  ,  [GTXG]  ,  [GSTKG] ,  QDP,  (SAROLOAD]  , 

3845 

7! 

(DELTA(SUB)]  ,  (AAICl  , 

3846 

7! 

[UAG  (BC)  ] ,  (MGG]  .  (AAG(BC)  ]  .  (KFS)  , 

3847 

7! 

[KSS] ,  (DAP] ,  [YS (BC) ] ,  (PNSF (BC) ] , 

3848 

7! 

(PGMN(BC)],  (PFJK],  NCSR,  USET{BC) , 

3849 

7! 

06RIDL0D  ); 

3850 

7t 

ELSE 

3851 

7‘ 

IP  SYM  «  0  THEN 

3852 

8! 

CALL  OPPALOAD  (  ,  BCID,  MINDEX,  SUB.  GSIZE. 

3853 

8! 

TRIMDATA,  BGFDT(BC)  , 

3854 

8! 

(GPTKG],  (GTKG],  [GSTKG],  QDP,  [SAROLOAD], 

3855 

8! 

IDBLTA(SUB)  ]  ,  [ASAIC]  , 

3856 

8! 

(UAG(BC)],  [MGG],  (AA6(BC)1.  [KFS], 

3857 

B! 

[KSS],  [DAP],  (YS(BC)],  [PNSF(BC)], 

3858 

8! 

(PGNN(BC}],  (PFJK],  NGDR,  USBT(BC), 

46 


3859 

8! 

OGRIDLOD  ) ; 

3860 

8! 

ENDIF; 

3861 

7! 

BNDIF; 

3862 

6! 

BNDIF; 

3863 

5!$ 

3864 

S!$ 

CALL  TO  COMPUTE  THE  TRIMMED  LOADS /DISPLACEMENTS  ON  THE 

3865 

5!$ 

AERODYNAMIC  MODEL 

3866 

5!$ 

3867 

5! 

IF  SYM  »  1  THEN 

3868 

6! 

CALL  OFPABROM  {  ,  BCID,  MINDEX,  SOB,  GSIZB,  SAGBOM, 

3869 

6! 

TRIMDATA. 

3870 

6! 

IGTKG] ,  [GSTKGl,  QDP,  ISAROLQADJ , 

3871 

6! 

[DBLTA(SUB}1 ,  [AIC] . 

3872 

6> 

[UAG(BC) ] ,  OAGRDLOD,  OAGRDDSP  ) ; 

3873 

6! 

ELSE 

3874 

6! 

IF  SYM  -  -1  THEN 

3875 

7! 

CALL  OFPABROM  (  .  BCID,  MINDEX,  SUB,  GSIZE,  SAGBOM, 

3876 

7! 

TRIMDATA, 

3877 

7! 

[GTKGl,  [GSTKGl,  QDP,  [SAROLOADJ , 

3878 

7! 

tDELTA(SUB)),  tAAICJ . 

3879 

7! 

[OAGCBC)],  OAGRDLOD,  OAGRDDSP  }; 

3880 

7! 

ELSE 

3881 

7! 

IF  SYM  »  0  THEN 

3882 

8! 

CALL  OFPABROM  {  .  BCID,  MINDEX,  SUB,  GSIZB.  SAGSOM, 

3883 

8! 

TRIMDATA, 

3884 

8! 

CGTKGl,  IGSTXG],  QDP,  [SAROLOADI , 

3885 

8! 

{DELTA (SUB)  1  ,  [ASAIC]  . 

3886 

8! 

[UAG(BC)1,  OAGRDLOD,  OAGRDDSP  ); 

3887 

8! 

ENDIF; 

3888 

7! 

BNDIF; 

3889 

6! 

ENDIF; 

3890 

5! 

ENDDO; 

3891 

4! 

BNDIF 

; 

3892 

3! 

IF  BDRSP  <>  0  THEN 

3893 

4! 

CALL  OFPDLOAD  {  ,  BCID,  BGPDT(BC) ,  PSI2E (BC) ,  BSI2B(BC) ,  [PHIG(BC)3. 

3894 

4! 

[PT6LOAD]  ,  (PTHLOADl  ,  [PFGLOAD]  ,  [PFHLQAD]  ,  OGRIDLOD  ! 

3895 

4! 

IF 

BDTR  <>  0  OR  BKTR  <>  0 

3896 

5! 

CALL  OPPSPCF  (  0,  BCID,  5,  1,  GSIZB,  BSIZB(BC}. 

3897 

5! 

N6DR,  [KFS],  ,  [UTRANF],  ,  . 

3898 

5! 

{PNSP(BC)],  [PGMN(BC)],  [PFJXl , 

3899 

5! 

{PHIG(BC} 1 .  [PTGLOAD] ,  tPTHLOAD] . 

3900 

5! 

B6POT(BC)  .  OGRIDLOD  )  ; 

3901 

4! 

IF 

BDFR  <>  0  OR  BMFR  <>  0 

3902 
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CALL  OPPSPCF  (  0.  BCID,  6,  2,  GSIZB,  ESIZB(BC), 

3903 

S> 

NCSR,  CKFS]  ,  ,  [UFRBQF]  ,  .  . 

3904 

5! 

(PHSP(BC}],  {PGMN(BC)],  [PFJK] , 

3905 

5! 

{PaiG(BC)].  {PFGLOAD],  (PFHLQAD], 

3906 

5! 

BGPDT(BC),  OGRIDLOD  }; 

3907 

4! 

BMDIF; 

3908 

3! 

CALL 

OFFLOAD  (  BCID,  ,  GSIZB,  BGPDT(BC)  ,  PSIZB(BC), 

3909 

3! 

(PG]  ); 

3910 

3! 

CALL 

OFPDISP(  BCID,  ,  GSIZB.  B6PDT(BC) ,  BSIZB{BC) ,  PSIZB(BC) , 

3911 

3! 

OGRIDDSP,  {DG(BC)].  [A6(BC)].  {UAG(BC)].  [AA6(BC)  I  , 

3912 

3! 

CUBLASTG] ,  ,  [UTRANG]  ,  [UTRANB] ,  [UFRBQG]  ,  [UFREQB]  , 

3913 

3! 

LAMBDA,  [PHIG(6C)1,  ,  SYMTRN(BC)  ,  [UAGKBC)],  [AAGKBO]  ) 

3914 

3! 

CALL 

EDR  (  BCID,  ,  NDV,  GSIZB,  BOStAMRY,  BODISC, 

3915 

3! 

GLBDES,  LOCLVAR,  [PTRANS] , 

3916 

3! 

[116  (BC)  ]  ,  [UAG(BC)  ]  ,  .  [UTRANG]  ,  [UFRBQG]  ,  (PHI6{BC)  ]  , 

3917 

3! 

,  SYMrRN(BC),  [UAGKBC)]  ); 

3918 

3! 

CALL 

OFPEDR  (  BCID,  HSIZB(BC),  .  SYMTRN(BC)  ); 

3919 

3!$ 

3920 

3 !  $ .  . .  . 

3921 

3!$ 

3922 

3!  ENI^; 

3923 

2!BHDIF 

3924 

1!BND; 

4 
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3.  THE  SOLUTION  CONTROL  PACKET 


The  following  pages  describe  the  new  and  modified  Solution  Control  commands  developed  under 
this  effort.  These  are  summarized  in  the  following  table: 


Command 

Description  of  Change/Modification 

ARCHIVE 

New  command 

ASSEMBLE 

New  command 

FTRIM 

New  Command 

IMPORT 

New  command 

OVERLAY 

New  command 

SAERO 

Heavily  modified  command. 

The  new  conunands  enable  a  new  ASTROS  capability  called  MODEL  ASSEMBLY.  This  feature 
permits  die  use  multiple  aerodynamic  databases  perhaps  created  from  aerodynamic  methods  alternative 
from  the  native  ASTROS  meAods.  The  data  from  a  variety  of  sources  can  be  combined  to  create 
aerodynamic  or  aeroelastic  models  for  ASTROS  use.  Aerodynamic  and  Aeroelastic  models  are  defined  at 
the  subcase  level,  therefore,  a  new  hierarchical  level  was  inserted  in  solution  control  between  the 
BOUNDARY  and  DISCIPLINE  levels. 

SOLUTION 

OPTIMIZE/ANALYZE 

BOUNDARY 

MODEL_ASSEMBLY_COMMANDS 
DISCIPLINE  MODEL=model_name 

END 

Notice  that  each  discipline  level  command  requires  the  specification  of  only  a  single  model_name 
radier  than  a  collection  of  model  components.  This  removes  redundant  specification  of  model  assembly 
commands  for  disciplines  which  use  the  same  model.  However,  redundant  model  assembly  commands  are 
still  required  for  the  existing  ASTROS  paradigm  of  one  model  and  multiple  symmetric  and  antisymmetric 
boundary  conditions  (and  even  the  case  of  bodi  OPTIMIZE  and  ANALYZE  sub-packets). 

Four  basic  commands  provide  sufficient  generality  to  assemble  aeroelastic  models  from  a 
combination  of  existing  and  archived  data  groups. 

1.  IMPORT 

2.  ARCHIVE 

3.  OVERLAY 

4.  ASSEMBLE 

Aerodynamic  and  aeroelastic  data  are  segregated  into  logical  groupings  as  shown  in  Table  3-1. 
The  first  two  group  types  (QUADPAN  and  USSAERO  input  packets)  are  inputs  to  the  two  available 
ASTROS  aerodynamic  methods  of  the  SAERO  discipline.  The  next  three  group  types  (STDYGEOM, 
RIGDALOD,  and  AIC)  are  eidier  ouqnits  of  the  available  ASTROS  aerodynamic  methods  (run-time  or 
archived  from  previous  runs)  or  alternate  data  created  from  some  external  method.  In  either  case,  die 
aerodynamic  model  is  assembled  from  groups  of  aerodynamic  data  which  exist  on  either  die  run-time 
database  and/or  alternate  database(s)  of  archived  data.  The  RIGDSLOD  group  is  defined  by  the  user 
through  the  new  SLPARM  and  current  static  load  bulk  data  cards.  It  may  be  archived  from  previous  runs 
in  similar  function  as  the  STDYGEOM,  RIGDALOD,  and  AIC  groups.  The  subsequent  aeroelastic 


49 


discipline,  FTRIM,  requires  a  combination  of  the  assembled  aerodynamic  model  and  the  SPLINES  group 
and  computes  as  output  the  FLEXLOAD  group. 


Table  3-1  ASTROS  Aeroelastic  Solution  is  Assembled  From  Aerodynamic  and  Aeroelastic  Data  Groups. 


Group  Type 

Contents 

QUADPAN  Input  Packet 

•  geometry  input 

•  control  surface  definition 

USSAERO  Input  Packet , 

•  geometry  input 

•  control  surface  definition 

STDYGEOM 

•  aerodynamic  model  geometry 

RIGDALOD 

•  trim  parameter  rigid  actual  aerodynamic 
pressure  vectors  (not  increment) 

AIC 

•  symmetric  AIC  matrix 

•  antisymmetric  AIC  matrix 

•  asymmetric  AIC  matrix 

SPLINE 

•  rigid  load  spline 

•  slope  spline 

•  aeroelastic  load  increment  spline 

RIGDSLOD 

•  user  defined  rigid  structural  load  (e.g.  thrust 
load,  distributed  actuator  load, ..) 

FLEXLOAD 

•  trim  parameter  flexible  load  and  deflection 
increment  vectors 

For  ASTROS  discipline  purposes,  these  groups  are  collected  into  a  master  group  called  a 
MODEL.  For  instance,  ASTROS  runtime  FTRIM  discipline  subcases  have  associated  with  it  a  unique 
MODEL  group  which  specifies  the  set  of  entities  associated  with  the  MODEL.  However,  members  of  a 
particular  MODEL  may  also  be  members  of  other  MODELs  (i.e.,  the  same  STDYGEOM  group  may 
used  by  more  than  one  group).  Two  formalized  MODEL  groups  have  been  established  as  depicted 
Figure  3-1.  A  unique  SAMODEL  will  be  established  for  each  SAERO  subcase  while  a  unique 
SAEMODEL  will  be  established  for  each  FTRIM  subcase. 

The  steady  aerodynamic  model  (SAMODEL)  includes  attributes  traditionally  thought  of  as 
aerodynamic  with  the  exception  of  the  RIGDSLOD  group.  TTie  STDYGEOM,  RIGDALOD,  and 
RIGDSLOD  groups  will  be  discussed  in  the  following  paragraphs.  The  AIC  group  contains  information  on 
the  aerod3mamic  influence  coefficient  matrices.  A  model  may  contain  symmetric,  antisymmetric  and 
asjmmetric  AIC  matrices,  and  it  may  contain  matrices  for  multiple  Mach  numbers.  Therefore  in  use,  a 
model  may  appear  in  multiple  boundary  conditions  and  subcases  once  it  is  either  imported  or  created  at 
runtime. 

The  STDYGEOM  group  (illustrated  in  Figure  3-2)  consists  of  the  traditional  ASTROS  relations  that  define 
aerodynamic  models.  The  addresses  of  these  relations  are  stored  in  this  group.  By  grouping  the  Hata  a 
single  model  geometry  may  be  used  with  any  RIGDALOD  group  to  integrate  rigid  pressure  data  from 
many  sources  and  at  many  Mach  numbers.  Future  ASTROS  enhancements  could  include  using  this 
geometry  for  both  steady  and  unsteady  aerodynamic  analysis.  Current  restrictions  however  require 
separate  definitions  for  steady  versus  unsteady  discretizations. 
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£  .s 


Figure  3-1  Steady  Aerodynamic  and  Steady  Aeroelastic  Model  Groups 


steady  Aerodynamic  Model  Geometry 


Aerodynamic  Component  Definition 
Aerodynamic  Panel  Geometry  ID 
Aerodynamic  Panel  Comer  Points 
Aerodynamic  Panel  Connectivity 


Figure  3-2  STDYGEOM  -  Model  Geometry  &  Coimectivity 


The  new  SAERO  and  FTRIM  solution  control  commands  enable  the  user  to  execute  aerodynamic 
and  aeroelastic  analyses  that  can  take  advantage  of  this  formalized  set  of  data  groups  (refer  to  Table  3-1). 
Aerodynamic  and  aeroelastic  models  are  either  assembled  or  modified  prior  to  these  basic 
aerodynamic/aeroelastic  discipline  level  commands.  Models  can  be  comprised  of  entirely  run-time  Hat? 
archived  data,  or  some  combination  thereof.  For  instance,  a  trim  analysis  scenario  might  include 
development  of  aerodynamic  geometry  and  AIC  matrices  using  the  available  ASTROS  aerodynamic 
mediod,  QUADPAN,  and  inclusion  of  archived  CFD  derived  rigid  pressure  vectors  and  perhaps  even  wind 
turmel  derived  pressure  vectors.  Figure  3-3  illustrates  the  final  pressure  vector  that  would  be  created  for 
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aeroelastic  analysis.  In  this  case,  the  user  specifies  1)  execution  of  the  SAERO  discipline  to  generate 
STDYGEOM,  RIGDALOD,  and  AIC  output  groups  from  the  QUADPAN  input  packet,  2)  assembly  of  the 
modified  aerodynamic  model  from  run-time  QUADPAN  groups  (STDYGEOM  and  AIC)  and  archived 
CFD  group  (RIGDALOD)  and  Wind  Tunnel  group  (RIGDALOD),  and  3)  execution  of  subsequent 
aeroelastic  disciplines. 


Figure  3-3  Overlay  Base  Aerodynamics,  CFD,  Wind  Tunnel  As  Best  Aerodynamics  Using  Type 

RIGDALOD 


The  RIGDALOD  group  is  depicted  in  Figure  3-4.  This  group  contains  the  table  of  contents  of 
relations  and  matrices  associated  with  actual  full  rigid  aerodynamic  pressure  data.  As  such,  this  data  is  not 
restricted  to  linear  theory  (See  Ref.  4).  An  important  distinction  in  the  AANDE  paradigm  from  the  original 
ASTROS  paradigm  is  the  database  storage  and  usage  of  rigid  aerodynamic  pressure  data.  In  the  original 
ASTROS  paradigm,  pressure  data  was  created  and  stored  as  increment  (or  unit)  data  for  each  control 
parameter  (e.g.  a,  P,  5J.  In  the  AANDE  paradigm,  rigid  aerodynamic  pressure  data  is  stored  as  whole  or 
actual  data  (e.g.  pressure  at  a  =  12.5  degrees,  pressure  at  P  =  200  deg./sec, ..).  A  basis  pressure  vector  is 
defined  in  each  RIGDALOD  group.  The  vector  defines  the  pressure  state  at  a  specified  set  of  angles  and 
rates.  This  new  paradigm  allows  the  ASTROS  user  generality  in  defining  pressure  states  from  various 
sources.  Ensuing  logic  in  the  model  manipulation  creates  the  necessary  incremental  pressure  vectors 
ASTROS  needs  to  perform  linear  aeroelastic  analysis.  This  paradigm  also  allows  for  future  growth  in 
ASTROS  including  nonlinear  iterative  maneuver  trim  analysis. 

The  ASTROS  user  may  modify  individual  data  groups  such  as  in  Table  3-1  by  creating 
combinations  from  two  or  more  existing  run-time  and/or  archived  data  groups.  Extending  the  analysis 
scenario  of  the  previous  paragraph,  die  analyst  may  also  have  an  aerodynamic  influence  coefficient  matrix 
created  from  a  high  order  computation  fluid  dynamics  basis.  The  AIC  group  from  the  CFD  basis  may  be 
assembled  with  the  new  RIGDALOD  group  and  the  original  STDYGEOM  group.  The  onfy  requirement 
for  group  man^ulations  such  as  described  is  that  the  geometry  of  the  combined  groups  must  be 
conqtliant. 
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Rigid  Aerodynamic  Parameter  Load  Vectors 

_ £1!: _ 

Aerodynamic  Basis  Vector 
Load  At  Actual  Alpha 
Load  At  Actual  Beta 

Load  Ax  Actual  Surface  X 
Basis  Reference  Parameters 


Figure  3-4  RIGDALOD  -  Rigid  Aerodynamic  Loads 

The  last  group  mentioned  in  the  steady  aerodynamic  model  is  a  new  feature  developed  under  the  AANDE 
program.  The  RIGDSLOD  group  contains  the  addresses  and  table  of  contents  of  user  defined  loads  (Ref 
4).  These  loads  are  created  from  ASTROS’  STATICs  load  parameters  such  as  FORCE,  MOMENT, 
GRAY,  and  TEMP.  The  loads  are  created  in  the  structural  domain,  and  they  can  be  used  to  add  augment 
the  aerodynamic  simulation.  For  instance,  force  increments  from  a  wind  tunnel  model  may  be  used  to 
simulate  aerodynamic  store  loads.  Another  example  of  this  capability  is  the  development  of  force 
actuation  simulations  typifying  adaptive  materials  in  smart  structures.  As  shown  in  Figure  3-5,  a  new 
ASTROS  Bulk  data  entry  has  been  created  called  SLPARM.  In  like  manner  to  the  RIGDALOD  group,  the 
load  vectors  in  RIGDSLOD  are  stored  as  actual  loads  referenced  to  a  load  parameter  magnitiiHp 

A  steady  aeroelastic  model  (SAEMODEL)  is  created  by  the  user  through  model  assembly 
commands  or  automatically  from  specification  of  steady  aerodynamic  model  in  an  FTRIM  discipline.  Note 
that  the  steady  aerodynamic  model  is  a  subset  of  the  steady  aeroelastic  model.  The  two  groups,  SPLINE 
and  FLEXLOAD  are  added  to  the  aerodynamic  model  in  Ae  creation  of  the  aeroelastic  model.  The 
SPLINE  group  is  created  during  the  processing  of  splines  defined  in  the  traditional  fashion  of  ASTROS’ 
bulk  data  entries.  A  SPLINE  group  is  a  permanent  ASTROS  entity.  That  is,  once  it  is  created,  it  is  never 
purged  fix)m  the  ASTROS  database  and  may  be  reused.  The  FLEXLOAD  group,  however,  is  recreated 
within  each  aeroelastic  solution. 

Presented  in  Figure  3-6  is  a  case  where  three  databases  are  manipulated  to  assemble  the  aerodynamic 
model  desired  for  a  symmetrical  flexible  maneuver  trim  simulation.  From  the  commands  in  this  solution 
sequence,  addresses  of  physical  data  are  made  known  to  the  functional  modules  in  ASTROS  so  that  the 
physical  data  of  a  complete  aerodynamic  model  may  be  assembled  on  the  runtime  database. 
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Rigid  Structurai  Parameter  Load  Vectors 

_ _ 

Basic  Grid  Point  Data 

Load  At  Actual  Defl.  SLPARM  1 
Load  At  Actual  Defl.  SLPARM  2 
Load  At  Actual  Defl.  SLPARM  3 

Load  At  Actual  Defl.  SLPARM  XXX 


(SLPARM  :  User-Defined  Structural  Load  Parameter) 

Figure  3-5  RIGDSLOD  -  Rigid  Structural  Loads 


Generate  Steady 
Aerodynamic  Data  & 
Static  Load  Parameter 

Import  Alternate 
Aerodynamic  Data 

Overlay  Steady 
Aerodynamic  Data 

Assemble  Steady 
Aerodynamic  Model 


Trim  Solution 


Static  Aeroelastic  Solution  Control 


\ ANi 


SOLUTION 
ANALYZE 
.BOUNDARY 

SAERO  (METHOD=QUADPAN,  MODEL=RGDSLD) 

{IMPORT  SAMODEL  STEADY  FROM  F95SYM  AS  STEADY) 

IMPORT  RI6DAL0D  RIGDALODO  FROM  F16WT  AS  RIGDALODO) 
IMPORT  RIGDALOD  RIGDALODO  FROM  F95SYM  AS  RIGDALOD1) 
OVERLAY  RIGDALOD  RIGDALODO 
RIGDALOD  RIGDALOD1 
AS  RIGDALODO  USING  TYPEsRIGDALOD 
ASSEMBLE  SAMODEL  FROM  STDYGEOM  STEADY, 

RIGDALD  RIGDALODO, 

AlC  STEADY, 

RIGDSLOD  RGDSLD  AS  WTBASE 
FTRIM  (TRIM=1008,  MODEL=WTBASE) 

ND 


Figure  3-6  Assembly  And  Trim  Solutions  of  Aeroelastic  Equations 


The  SAERO  command  allows  the  generation  of  a  user  defined  load  from  the  static  load  parameter 
capability.  The  data  is  stored  in  the  ASTROS  runtime  database  in  the  MODEL  name  RGDSLD.  A  steady 
aerodynamic  MODEL  named  STEADY  is  imported  from  the  database  F95SYM.  From  that  model,  the 
RIGDALOD  group  -  table  of  contents  for  rigid  aerodynamic  pressure  data  which  is  named  RIGDALODO 
is  imported  and  named  RIGDALODl.  The  physical  aerodynamic  data  still  lies  out  on  the  F95SYM 
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database,  but  its  address  and  table  of  contents  are  placed  on  the  runtime  database  in  RIGDALODl .  A  third 
database  RIGDALOD  is  also  imported  from  F16WT  and  named  RIGDALODO.  Similarly,  the  address  and 
table  of  contents  of  the  physical  aerodynamic  data  associated  with  the  model  in  F16WT  is  stored  on  the 
ASTROS  runtime  database. 

The  OVERLAY  command  is  used  in  this  case  to  acquire  data  from  the  F16WT  database.  This 
data  is  wind  tunnel  pressures,  and  by  virtue  of  the  ordering  of  the  RIGDALOD  groups  and  the  intersection 
of  certain  aerodynamic  parameters  in  both  RIGDALOD  groups  (e.g.  a),  certain  addresses  in  the  table  of 
contents  of  RIGDALODO  will  be  replaced  with  addresses  from  RIGDALODl.  Also,  by  virtue  of  a  union, 
the  new  RIGDALODO  group  will  contain  items  from  both  original  groups. 

f 

Once  these  data  are  known  to  the  runtime  database,  an  aerodynamic  model  may  be  assembled.  In 
this  case,  the  geometry  (identified  by  the  group  STDYGEOM)  comes  from  the  MODEL  STEADY.  The 
physical  data  is  stored  on  the  F95SYM  database,  and  via  die  import  of  STEADY,  the  ftmctional  modules 
now  have  the  address  of  all  the  geometry.  Similarly,  the  AIC  group  is  designated  from  STEADY.  The 
new  aerodynamic  model  is  named  WTBASE. 

The  FTRIM  discipline  identifies  the  aerodynamic  model  for  use,  and  an  AEROELASTIC  MODEL  is 
formed  with  this  name.  In  the  database,  the  AEROELASTIC  MODEL  name  will  be  WTBASESAE.  The 
AEROELASTIC  MODEL  will  look  for  a  SPLINE  group  named  WTBASE  since  no  group  is  identified  in 
the  FTRIM  callout.  However,  a  SPLINE  group  could  be  identified  if  the  user  chose  to. 

The  new  solution  control  commands  are  defined  in  the  following  pages. 
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Solution  Control  Command:  ARCHIVE 


Description:  Requests  that  aerodynamic  group  data  be  archived  to  an  eBase  database. 

Format  and  Example: 


ARCHIVE  group_type  group_naine  TO  logical_db  AS  new_group_naine 

ARCHIVE  SAMODEL  STEADYSAE  TO  FSWARC  AS  ALTAERO 


Option _ 

group_type 

group_name 

logical_db 

new_group_name 


^ _ Meaning _ 

The  GROUP  type  ( e.g.  SAMODEL,  STDYGEOM,  AlC,  etc.)  to  be 
archived. 

Name  of  GROUP  that  will  be  archived. 

The  logical  name  of  an  eBase  database  that  has  been  ASSIGNed  during 
the  current  job. 

A  new  group  name  that  will  be  created  for  the  archived  data. 


Remarks: 

1 .  The  ARCHIVE  command  physically  copies  all  the  entities  in  the  group  onto  the  specified 
database. 
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Solution  Control  Command;  ASSEMBLE 


Description:  Creates  an  aerodynamic  model  from  the  GROUP  entity. 

Format  and  Example: 

ASSEMBLE  model_type  FROM  <group_type_name_list>  AS  model_name 

<group_type_name_list>  =>  group_type  group_name,  . . . 

ASSEMBLE  SAMODEL  FROM  STDYGEOM  STDYGEOMOOO,  RIGDALOD  RIGDALODOOl, 

'AIC  AIC003  AS  ALTAERO 

ASSEMBLE  SAMODEL  FROM  STDYGEOM  STEADYl,  RIGDALOD  STEADYl, 

AIC  STEAD Y2  AS  ALTAERO 


Option _ 

group_type 

group_name 

niodel_name 

model_type 


_ Meaning _ 

The  GROUP  type  ( e.g.  SAMODEL.  STDYGEOM.  AIC.  etc.)  to 
be  assembled  from. 

Name  of  GROUP  that  will  be  assembled  from. 

A  new  model  name  that  will  be  assembled. 

The  type  of  the  new  model  that  will  be  assembled. 


Remarks: 

1 .  The  ASSEMBLE  command  will  only  create  the  table  of  contents  for  the  new  group.  All  of  the 
entities  in  the  groups  will  remain  on  their  original  databases,  i.e.  no  data  are  copied. 

2.  The  Group  Names  specified  in  the  ASSEMBLE  command  may  be  the  names  of  the  group 
entities  that  will  be  assembled,  or  the  names  of  group  entities  which  themselves  contain  the 
groups  to  be  assembled. 
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Solution  Control  Command:  FTRIM 


Description:  Creates  an  aerodynamic  model  from  the  GROUP  entity. 

Format  and  Example: 

FTRIM  sym  (  TRIM  =  a,  TRIMOPT  =  b,  MODEL  =  name,  DCON=c) 

FTRIM 

Option _  ' _ _ Meaning _ 

sym  The  symmetry  option  from  SYMMETRIC,  antisymmetric  or 

ASYMMETRIC. 

a  TRIM  condition  identification  number, 

b  TRIM  optimization  identification  number., 

name  The  name  of  the  aerodynamic  model. .  ^ 

c  Identification  number  for  design  constraints. 


Remarks: 

1 .  The  aerodynamic  model  to  be  used  by  the  FTRIM  discipline  may  be  the  result  of  a  previous 
SAERO  discipline,  or  it  may  be  assembled  from  various  sources,  including  databases  (not 
including  the  run-time  database),  results  of  other  SAERO  or  FTRIM  disciplines,  or  through  the 
aerodynamic  model  assembly  Solution  Control  commands 
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Solution  Control  Command:  IMPORT 

Description:  To  import  an  aerodynamic  GROUP  from  an  existing  eBase  database. 

Format  and  Example: 

IMPORT  group_type  group_name  FROM  logical_cib  AS 

new_group_name 

IMPORT  SAMODEL  STEADY  FROM  FSWARC  AS  ALTAERO 

Option _  ' _ Meaning _ 

group  type  The  GROUP  type  ( e.g.  SAMODEL,  STDYGEOM,  AlC,  etc.)  to 

be  imported.. 

group_name  Name  of  GROUP  that  will  be  imported. 

iogical_db  The  logical  name  of  an  eBase  database  that  has  been 

ASSIGNed  during  the  current  job. 

new_group_nanie  A  new  group  name  that  will  be  used  for  the  imported  data. 

Remarks: 

1 .  The  IMPORT  command  will  only  create  the  table  of  contents  for  the  new  group.  All  of  the 
entities  in  the  groups  will  remain  on  their  original  databases,  i.e.  no  data  are  copied. 
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Solution  Control  Command:  OVERLAY 


Description:  Creates  a  new  aerodynamic  model  by  overlaying  two  or  more  GROUPS. 


Format  and  Example: 


OVERLAY  <group_type_list>  AS  <new_group_name>  USING  TYPE 

group_type 

<group_type_name_list>  =>  group_type  group_name,  . . . 

OVERLAY  RIGDALOD  ALTERl,  RIGDALOD  ALTER2,  RIGDALOD  ALTERS  AS 
ALTNEW 

USING  TYPE  RIGDALOD 


Option _  _ Meaning _ 

group_type_list  Specifies  the  types  and  names  of  one  or  more  groups,  separated  by 

commas,  that  will  be  overiayed.  The  overlay  is  performed  in  the  order 
listed.  This  means  that  the  comtrran  data  from  the  last  group  name  will 
be  the  data  used. 

new_group_naine  Name  of  thew  new  GROUP  created  by  the  overlay. 

group_type  The  GROUP  type  ( e.g.  SAMODEL,  STDYGEOM,  AlC,  etc.)  of  the  data 

to  be  overiayed. 


Remarks: 

1 .  The  OVERLAY  command  will  only  create  the  table  of  contents  for  the  new  group.  All  of  the 
entities  in  the  groups  will  remain  on  their  original  databases,  i.e.  no  data  are  copied. 
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Solution  Control  Command:  SAERO 

Description:  Invokes  the  generation  of  aerodynamic  matrices. 

Hierarchy  Level:  Discipline 

Format  and  Examples: 

SAERO  sym  (  METHOD  =  meth,  MACH  =  mach,  MODEL  =  name, 

AIC  =  option  ) 

SAERO 

Option _  _ Meaning  _ _ 

The  symmetry  option  from  symmetric,  antisymmetric  or 

ASYMMETRIC. 

The  method  for  aerodynamic  matrix  generation  from  USSAERO  or 
QUADPAN. 

Mach  number  at  which  matrices  will  be  generated. 

The  name  of  aerodynamic  model. 

NONE  for  no  AIC  computation 

BOTH  for  computation  of  both  symmetric  and  antisymmetric  AIC 
ANTI  for  antisymmetric  AIC 
SYMM  for  symmetric  AIC 
ASYM  for  asymmetric  AIC 

Remarks: 

1 .  SAERO  will  generate  the  specified  aerodynamic  model  to  be  used  by  downstream  steady 
aerodynamic  disciplines,  or  to  be  archived  on  the  specified  database 

2.  The  default  for  USSAERO  is  to  create  both  the  symmetric  and  antisymmetric  AIC  matrix 

3.  QUADPAN  will  check  the  flow  computation  requests  and  may  override  the  AIC  request  in 
select  cases.  If  combined  symmetric  and  antisymmetric  boundary  condition  flow  request  are 
made,  and  an  antisymmetric  or  symmetric  AIC  is  requested,  the  AIC  request  will  be 
overridden,  and  an  asymmetric  AIC  matrix  will  be  computed. 


sym 

meth 

mach 

name 

Option 
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4.  THE  INPUT  DATA  STREAM 


The  following  modification  to  Section  3.1  of  the  version  20  CRD  A  release  of  the  ASTROS  User’s 
Guide  has  been  made.  The  underlined  passages  indicate  new  text.  The  figure  numbers  called  out  in  this 
section  must  be  found  in  the  version  20  ASTROS’  User's  Guide.  The  underlined  changes  apply  to  the  Air 
Force  version  12.0  as  was  as  the  CRDA  version  20. 

The  ASTROS  user  directs  the  system  through  an  input  data  stream  composed  of  a  Resource  Section, 
which  allocates  ASTROS  databases  and  specifies  memory  utilization,  which  is  followed  by  multiple  Data 
Packets,  Each  packet  contains  a  set  of  related  data  providing  the  information  needed  to  execute  ASTROS. 
The  packets  begin  with  a  keyword  indicating  the  nature  of  the  data  within  the  packet  and  terminate  with  an 
ending  keyword  or  with  the  start  of  the  next  data  packet.  All  the  packets  in  the  input  data  stream  are  optional, 
and,  with  only  two  exceptions,  they  may  appear  in  any  order  in  the  input  data  stream.  The  purpose  of  this 
section  is  to  document  the  structure  of  the  input  data  stream.  Detailed  documentation  of  the  data  within  each 
data  packet  in  then  presented  in  separate  chapters. 

Figure  3-1  shows  the  general  form  of  the  input  data  stream,  and  Figure  3-2  illustrates  the  actual  input 
stream  features  with  a  sample  stream  for  a  ten  bar  truss  model.  The  first  non-blank  record  of  the  input  file 
must  be  either  the  ASSIGN  command  or  a  Resource  Section.  If  an  ASSIGN  command  is  used,  then  this 
command  will  enable  you  to  attach  the  nm-time  database(s)  that  are  used  during  the  execution  of  the 
ASTROS  system.  These  runtime  databases  may  include  several  aerodynamic  models  targeted  for 
OVERLAY  and  ASSEMBLE  commands  in  the  SOLUTION  packet.  There  are  five  optional  data  packets 
following  the  ASSIGN  command.  The  first  is  the  DEBUG  packet,  which  contains  debug  commands  to 
control  or  select  specific  actions  within  the  executive  and  database  management  systems.  The  remaining 
four  packets  may  appear  in  any  order  in  the  input  stream.  The  second  packet  is  the  MAPOL  packet 
containing  the  executive  system  control  directives  consisting  of  either  a  standalone  MAPOL  program  or 
EDIT  commands  to  modify  the  standard  MAPOL  program.  If  the  MAPOL  packet  is  absent,  the  unmodified 
standard  MAPOL  sequence  directs  the  execution.  The  Solution  Control  commands  appear  in  the  third 
optional  packet  denoted  by  the  keyword  SOLUTION.  These  commands  select  the  engineering  data  to  be 
used  in  each  subcase  from  the  set  of  data  provided  in  the  Bulk  Data  packet.  The  fourth  packet  is  the 
FUNCTION  packet.  It  contains  the  definition  of  functions  which  allow  the  user  to  define  new  design 
constraints  or  an  objective  function.  These  functions  may  combine  nodal  and  element  response  quantities  for 
various  boundary  conditions  and  disciplines.  The  fifth  data  packet  is  the  BULK  DATA  packet.  The  BULK 
DATA  packet  contains  the  engineering  data  describing  the  finite  element  structural  model,  the  aerodynamic 
model(s),  and  the  design  model,  as  well  as  all  the  data  needed  to  perform  the  specific  analysis  and/or 
optimization  tasks.  The  MAPOL,  SOLUTION,  and  BULK  DATA  packets  are  analogous  to  the  NASTRAN 
executive  control,  case  control,  and  bulk  data  decks,  respectively.  The  final  packet,  called  the  OUADPAN 
packet  contains  specific  data  used  by  the  OUADPAN  module.  This  packet  must  start  with  BEGIN 
OUADPAN,  and  end  with  END  OUADPAN.  The  OUADPAN  packet  can  be  input  in  any  order  with  or 
without  the  BULK  DATA  packet. 
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5.  THE  BULK  DATA  PACKET 


This  section  includes  changes  made  to  the  Bulk  Data  packet. 

The  following  pages  describe  the  new  and  modified  Bulk  Data  entries.  These  are  summarized  in  the 
following  table: 


ATTACH 

Completely  changed  to  support  new  features 

BMST,  BMST2 

New  entries 

DCONBMST 

New  entry. 

DCONSCF 

Extended  to  support  new  capability 

PANLST1,2 

New  entries. 

RELES 

New  entry. 

RMASS 

New  entry. 

SCHEDULE 

New  entry. 

SLPARM 

New  entry. 

SPLrNEl,2,3 

Completely  changed  to  support  new  features 

TCONBMST 

New  entry. 

TCONFUNC 

New  entry. 

TCONTRM 

New  entry. 

TFUNC 

New  entry. 

TODVPRM 

New  entry. 

TOMPPARM 

New  entry. 

TRIM 

Extended  to  support  new  capability 

TRIMOPT 

New  entry. 

TRIMR 

New  entry. 
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Input  Data  Entry:  ATTACH  Aerodynamic  Panel  Attachment 

Description:  Defines  the  aerodynamic  control  points  to  be  aHached  to  a  reference  grid  for  load 

transfer  and  aeroelastic  feedback. 


Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

g 

10 

EID 

MODEL 

SETK 

RGRID 

FEEDBK 

-  - - i _ 

100 

QDPAN1 

111 

1 

1 _ 1 

Field 

EID 

MODEL 

SETK 

RGRID 

FEEDBK 


Remarks: 


_ Contents _ 

Element  identification  number  (Integer  >  0) 

Name  of  steady  aerodynamic  input  packet  (text  or  blank) 

Refers  to  a  PANLSTi  entry  which  lists  the  aerodynamic  boxes  whose 
motions  are  interpolated  using  this  spline  (Integer  >  0) 

Grid  point  identification  of  reference  grid  point  (Integer  >  0) 

Aeroelastic  feedback  selection.  One  of  the  strings  RIGID,  FLEX  or  blank 

(Default  =  FLEX) 


1.  The  ATTACH  EID  must  be  unique  with  respect  to  all  other  SPLINE!  and  ATTACH  bulk  data 
entries,  it  is  used  only  for  error  messages. 

2.  This  entry  applies  to  both  the  steady  and  unsteady  aerodynamic  models. 
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Input  Data  Entry:  BMST  Load  Components  Definition 

Description:  Defines  load  components  (BMST)  for  the  FTRIM  discipline. 

Format  and  Example(s): 


1 

2  3 

4 

5 

6 

7 

8 

9  10 

BMST 

BMSTLAB  CID 

GID 

GLSTID 

PLSTID 

BMST 

WROOT 

100 

101 

102 

Field 

BMSTLAB 

CID 

GID 

GLSTID 

PLSTID 


_ Contents  _ 

Label  of  component  load  (Text) 

Reference  coordinate  system  identification  number  (Integer  >  0  or 
blank) 

Reference  grid  point  identification  number  (Integer  >  0) 

Grid  list  set  identification  (Integer  >  0) 

Aerodynamic  panel  list  set  identification  (Integer  >  0) 


Remarks: 

1 .  The  component  load  will  be  integrated  with  respect  to  the  reference  coordinate  system  at  the 
reference  grid  point  location.  If  a  reference  coordinate  system  is  not  specified,  the  basic 
coordinate  system  will  be  used. 

2.  The  grid  list  set  identification  references  a  GRIDLIST  entry  and  defines  the  structural  grid 
points  to  be  integrated  to  produce  the  rigid-splined  and  flexible  component  load.  This  list  is 
applicable  to  the  flexible  trim,  FTRIM,  discipline  only. 

3.  The  panel  list  set  identification  references  a  PANLST1  or  PANLST2  entry  and  defines  the 
aerodynamic  panels  to  be  integrated  to  produce  the  rigid  component  load. 
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Input  Data  Entry:  BMST2  Load  Components  Definition 
Description:  Defines  toad  components  (BMST)  for  the  RTRIM  discipline. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

BMST 

BMSTLAB 

PLSTID 

X1 

Y1 

Z1 

X2 

Y2 

Z2 

X3 

Y3 

Z3 

XREF 

YREF 

ZREF 

BMST 

WROOT 

101 

0. 

0. 

0. 

0. 

0. 

100. 

+ABC 

100. 

0. 

100. 

300. 

0. 

0. 

Field _ 

BMSTLAB 

PLSTID 

(X1,Y1.Z1) 

(X2.Y2.Z2) 

(X3.  Y3,  Z3) 

(XREF,  YREF, 
ZREF) 


_ Contents _ 

Label  of  component  load  (Text) 

Aerodynamic  panel  list  set  identification  (integer  >  0) 

Coordinates  of  the  origin  of  the  coordinate  system  in  which  the 
component  load  will  be  defined. 

Coordinates  on  the  z-axis  of  the  coordinate  system  in  which  the 
component  load  will  be  defined. 

Coordinates  of  a  point  in  the  x-z  plane  of  the  coordinate  system  in  which 
the  component  load  will  be  defined. 

Coordinates  of  the  reference  point  at  which  the  component  load  is 
defined. 


Remarks: 

1.  The  panel  list  set  identification  references  a  PANLST1  or  PANLST2  entry  and  defines  the 
aerodynamic  panels  to  be  integrated  to  produce  the  rigid  component  load. 

2.  The  three  points  (X1 ,  Y1 ,  Z1 ) ,  (X2.  Y2,  Z2) .  and  (X3,  Y3,  Z3)  must  be  non-collinear. 

3.  The  component  loads  will  be  integrated  at  the  reference  location  specified  by  (XREF,  YREF, 
ZREF)  with  respect  to  the  reference  coordinate  system  defined  by  (X1,  Y1,  Z1) ,  (X2,  Y2,  Z2) 
,  and  (X3,  Y3,  Z3). 

4.  The  reference  coordinates  must  be  defined  in  the  same  coordinate  system  as  the 
aerodynamic  model. 


THIS  FEATURE  IS  NOT  IMPLEMENTED. 
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Input  Data  Entry:  DCONBMST  Staictural  Optimization  Component  Load  (BMST) 

Constraint 

Description:  Defines  a  component  load  constraint  to  be  used  in  a  design  optimization. 

BMSTii)  <  BMSTifY^  or  BMSTQ)  >  BMST(i)  ^ 


Format  and  Example(s): 

1  2  3 


4 


6 


10 


DCONBMST  SETID  BMSTLAB  CMPNT  CTYPE 


BMSTLIM 


[DCONBMST  101 


WROOT 


UPPER 


1.0+7 


Field 

SETID 

BMSTLAB 

CMPNT 

CTYPE 

BMSTLIM 


_  Contents _ 

Set  identification  number  (Integer  >  0) 

Label  of  a  component  load  (Text) 

Component  number  of  the  component  load  (Integer  ±  1 , 2. 3, 4, 5  or  6) 

Constraint  type;  either  UPPER,  for  upper  bound,  or  LOWER  for  lower 
bound.  (Text,  De^ult  =  UPPER) 

Bound  for  the  component  load  (Real)  (Consistent  units) 


Remarks: 

1 .  BMST  constraints  are  selected  in  Solution  Control  with  the  discipline  option :  DCON=SETID . 

2.  The  BMSTLAB  must  be  defined  by  a  BMST  entry. 

3.  In  the  case  of  a  structural  optimization  using  a  BMST  constraint  and  an  asymmetric  trim  with 
a  half  model,  a  negative  BMST  component  number,  CMPNT,  refers  to  the  image  (left)  side  of 
the  model. 

4.  A  LOWER  bound  constraint  excludes  all  values  to  the  left  of  BMSTLIM  on  a  real  number  line, 
while  an  UPPER  bound  excludes  all  values  to  the  right,  irrespective  of  the  sign  of  BMSTLIM. 


THIS  FEATURE  IS  NOT  IMPLEMENTED. 
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Input  Data  Entry:  DCONSCF  Stability  Derivative  Constraint 


Description: 


Defines  a  constraint  on  the  flexible  stability  derivative  at  the  reference  grid  point 
associated  with  the  force  or  moment  due  to  a  trim  parameter  or  control  surface 
deflection  of  the  form: 


dCf 

DSirim 


\hwer 


dS/f7iff 


aCf  ~| 

d6» 


Jupper 


Format  and  Examplefs); 


1 

2 

3 

'  4 

5 

6 

7 

8 

9  10 

DCONSCF 

SETID 

ACCLAB 

PRMLAB 

CTYPE 

PRMREQ 

UNITS 

FSCFLAG 

DCONSCF 

1001 

PACCEL 

AILERON 

LOWER 

1.0 

RADIANS 

0 

_ _  _ _ Contents  _ 

SETID  Set  identification  number  referenced  by  the  DCONSTRAINT  Solution 

Control  option  of  the  FTRIM  or  FLEXSTAB  command.  (Integer  >  0) 

ACCLAB  Alphanumeric  string  identifying  the  aerodynamic  force  or  moment  by 

naming  the  corresponding  structural  acceleration  in  a  manner  consistent 
with  the  TRIM  entry.  See  Remarks  2  and  4. 

PRMLAB  Alphanumeric  string  identifying  a  constrained  control  surtece  or 

aeroelastic  trim  parameter  (e  g.  ALPHA  or  PRATE).  See  Remarks  3  and 
4. 

Constraint  type;  either  UPPER,  for  upper  bound,  or  LOWER  for  lower 
bound.  (Character,  Default  =  UPPER) 

Bound  for  the  stability  coefficient  For  units,  see  Remarks  5  an  6.  (Real) 

Units  for  the  stability  coefficient  Either  RADIANS  or  DEGREES.  See 
Remarks.  (Real,  Default  =  DEGREES) 

Flag  signifying  flexible  stability  coefficient  definition.  Either  0  for 
unrestrained  definition  (includes  inertia  relief)  or  1  for  restrained  definition 
(does  not  include  inertia  relief).  (Integer,  Default  =  0) 


CTYPE 

PRMREQ 

UNITS 

FSCFLAG 


Remarks: 

1 .  The  DCONSCF  entry  is  selected  in  Solution  Control  with  the  DCONSTRAINT=SETID  option 
of  the  FTRIM  or  FL^STAB  command. 

2.  The  ACCLAB  may  refer  to  any  of  the  TRIM  Bulk  Data  entry  trim  parameters  that  are 
structural  accelerations.  Valid  trim  parameters  are  NX,  NY,  N2,  PACCEL,  QACCEL.  and 
RACCEL. 

3.  The  PRMLAB  may  refer  to  AESURF  or  CONLINK  control  surfoces  or  to  any  of  the  TRIM 
entry  parameters  except  the  structural  accelerations.  Valid  selections  are:  PRATE,  ORATE, 
RRATE,  alpha,  beta,  THKCAM  and  any  control  surfoce  label.  Invalid  trim  parameters 
are:  NX,  NY,  NZ,  PACCEL,  QACCEL  and  RACCEL. 

4.  Any  combination  of  forces  or  moments  and  trim  parameters/control  surfaces  may  be  used  on 
this  entry  provided  they  have  the  same  symmetry  as  the  associated  TRIM  entry. 


70 


Furthermore,  to  apply  the  constraint  to  the  flexible  derivative,  the  degree  of  freedom 
corresponding  to  the  force  or  moment  must  be  supported  in  the  boundary  condition.  For 
example,  to  constrain  the  pitching  moment,  QACCEL,  due  to  angle  of  attack,  ALPHA,  the  y- 
rotation  of  the  support  point  must  be  on  the  SUPPORT  entry  for  the  boundary  condition  in 
which  the  TRIM  is  analyzed. 

5.  The  stability  derivatives  are  nondimensional  quantities  derived  from  the  flexible  forces  and 
moments  due  to  “unif  parameters.  The  constraint  is  applied  to  the  nondimensional  derivative 
at  the  user-defined  reference  point.  To  assist  the  defining  PRMREQ,  the  following 
normalizations  are  used  in  ASTROS: 


SYMMETRIC 

DERVIATIVES 

FORCES 

CONTROL 

SURFACES 

stability  coefficient  =  F/  (QDP*S) 

RATES 

stability  coefficient  =  F*2*V0  /  (QDP*S*C) 
“unit”  rate  =  unit  dimensional  rate  *  C/2*W0 

MOMENTS 

CONTROL 

SURFACES 

stability  coefficient  =  M/  (QDP*S*C) 

RATES 

stability  coefficient  =  M*4*V0/  (QDP*S*C**2) 
“unit”  rate  =  unit  dimensional  rate  *  C/2*V0 

ANTISYMMETRIC 

DERVIATIVES 

FORCES 

CONTROL 

SURFACES 

stability  coefficient  =  F/  (QDP*S) 

RATES 

stability  coefficient  =  F*2*  VO/  (QDP*S*B) 

“unif’  rate  =  unit  dimensional  rate  •  B/2*V0 

MOMENTS 

CONTROL 

SURFACES 

stability  coefficient  =  M/  (QDP*S*B) 

RATES 

stability  coefficient  =  M*4* VO/  (QDP*S*B**2) 
“unit”  rate  =  dimensional  rate  *  B/2*V0 

F  and  M  are  the  dimensional  flexible  forces  and  moments  for  the  full  vehicle:  S,  C,  and  B  are 
the  non-dimensional  foctors  from  the  AEROS  Bulk  Data  entry  (the  inputs  are  assumed  to  be 
for  the  full  vehicle);  and  QDP  and  VO  are  defined  on  the  TRIM  Bulk  Data  entry. 


6.  RADIANS  or  DEGREES  refer  to  the  units  of  the  unit  control  surface  deflection  or  unit  rate. 
RADIANS  imply  the  value  due  to  a  unit  RAD  or  RAD/S  while  DEGREES  imply  the  value  due 
to  a  unit  DEG  or  DEG/S.  THKCAM  has  no  valid  angular  unit,  hence  the  UNITS  field  is 
ignored. 

7.  A  LOWER  bound  constraint  excludes  all  values  to  the  left  of  PRMREQ  on  a  real  number  line, 
while  an  UPPER  bound  excludes  all  values  to  the  right,  irrespective  of  the  sign  of  PRMREQ. 
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Input  Data  Entry:  PANLST1  Aerodynamic  Panel  Set  Definition. 

Description:  Defines  a  set  of  aerodynamic  panels  by  identifying  opposite  comer  panels. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

PANLST1 

SETID 

MACROID 

Bdxi 

BOX2 

PANLST1 

101 

111 

.  Ill 

121 

1  1 

Field _ 

SETID 
MACROID 
BOX1,  BOX2 


_ _ Contents _ 

Set  identification  number  (Integer  >  0) 

identification  number  of  aerodynamic  macroelement  (Integer  >  0) 

The  identification  number  of  the  first  and  last  boxes  on  the  aerodynamic 
macroelement  (Integer  >  0) 


Remarks: 

1 .  The  set  of  aerodynamic  boxes  (k-set)  will  be  defined  by  the  aero-cells.  The  sketch  shows 
how  BOX1  and  BOX2  define  the  set  of  aerodynamic  boxes. 
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Input  Data  Entry:  PANLST2  Aerodynamic  Panel  Set  Definition. 
Description:  Defines  a  set  of  aerodynamic  panels  by  a  list. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

PANLST2 

SETID 

MACROID 

BOXI 

BOX2 

BOX3 

BOX4 

BOX5 

BOX6 

BOX7 

BOX8 

-etc- 

_ 1 

BBS 

bANLST2 

101 

51 

51 

52 

53 

54 

55 

57 

58 

59 

Altemt 

rte  Form: 

PANLST2 

SETID 

MACROID 

BOXI 

THRU 

BOX2 

_ 1 

Field 

SETID 

MACROID 

BOXi 


_ _ Contents _ 

Set  identification  number  (Integer  >  0) 

Identification  number  of  aerodynamic  macroelement  (Integer  >  0) 

The  identification  number  of  the  aerodynamic  box  associated  with 
macroelement  MACROID  (Integer  >  0) 
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input  Data  Entry:  RELES 


Description:  Defines  sets  of  component  degrees  of  freedom  at  substructure  GRID  points 

which  are  not  to  be  connected  during  a  substructure  reflection  operation. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

c 

10 

SID 

SNAME 

GID1 

DOF1 

GID2 

DOF2 

GID3 

DOF3 

-CONT- 

GID4 

DOF4 

61 

WINGR 

110 

45 

119 

124 

137 

456 

Pfeld _  _  Contents _ 

SID  Connection  set  identification  number.  [1]  (Integer  >  0) 

SNAME  Basic  Substructure  name.  (Name) 

GIDi  GRID  or  SCALAR  point  identification  number,  (integer  >  0) 

dor  List  of  degrees  of  freedom  to  be  released.  (Integer  >  0) 

Remarks: 

1 .  The  release  connectivity  set  must  be  selected  in  the  solution  control  packet  with  the 
command:  RELES  =  SID 

2.  The  RELES  data  will  override  connections  automatically  generated. 

3.  The  SNAME  is  only  used  as  label. 
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Input  Data  Entry:  RMASS 


Rigid  Mass  Definition 


Description:  Defines  the  rigid  mass  for  the  rigid  trim  discipline,  RTRIM. 

Format  and  Example(s): 


1  2  3  4  5  6  7 _ 8 _ 9 _ 10 


RMASS 

RMID 

M 

111 

121 

122 

131 

132 

133 

RMASS 

1001 

49.7 

.  16.2 

16.2 

7.8 

Field _  ' _ Contents _ 

RMID  Rigid  mass  identification  number  (Integer  >  0) 

M  Mass  value  (Real) 

lij  Mass  moments  of  inertia  measured  at  the  mass  center-of-gravity  in  the 

coordinate  system  defined  by  the  aerodynamic  model  (Real) 

Remarks: . 

1 .  The  form  of  the  inertia  matrix  about  its  center-of-gravity  is  taken  as: 


M 

M  SYM 


^22 

~h2  hi. 

where: 

M  =  jp  dv 

4  = 

hi  =  Jp 

hi  =  Jp  +y^)dv 

h\^\pxydv 
hx  =  \Qxzdv 

4  =  Jp  ^  ^ 


M  = 


M 


Ml 


-I. 


21 


-I. 


31 


and  X,  y,  z  are  components  of  distance  from  the  center-of-gravity  in  the  coordinate  system 
defined  by  the  aerodynamic  model.  The  negative  signs  for  the  off-diagonal  terms  are 
supplied  by  the  program. 
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THIS  FEATURE  IS  NOT  IMPLEMENTED. 
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Input  Data  Entry:  SCHEDULE 


Control  Surface  Schedule  Definition 


Description:  Defines  a  schedule  of  control  surface  position  values  as  a  function  of  other  trim 

parameter  values. 

Format  and  Example(s): 


1  23  4  5  67  89  10 


SCHEDULE 

TRIMID 

SURFLAB 

CTOL 

MAXITER 

SVID 

CONT 

PRMLABI 

PVIDI. 

PRMLAB2 

PVID2 

-etc- 

SCHEDULE 

101 

LEF 

103 

+ABC 

+ABC 

ALPHA 

105 

QDP 

107 

Field 

TRIMID 

SURFLAB 

CTOL 

MAXITER 

SVID 

PRMLABi 

PVIDi 


_ Contents  _ 

Trim  set  identification  number  (Integer  >  0) 

Label  of  the  control  surface  to  be  scheduled.  (Text) 

Convergence  tolerance  for  the  change  in  schedule  value  between 
iterations 

(Real)  (Default  =  0.1) 

Maximum  number  of  schedule  iterations  allowed  (Integer  >0)  (Default  = 
20) 

Identification  number  of  an  AEFACT  entry  which  contains  the  schedule 
values.  (Integer  >0) 

Label  of  a  trim  parameter  which  the  schedule  is  a  function  of.  (Text) 

Identification  of  an  AEFACT  entry  which  contains  the  parameter  values 
at  which  the  schedule  values  are  defined.  (Integer  >  0) 


Remarks: 

1 .  The  TRIMID  and  SURFLAB  are  referenced  to  the  TRIMID  and  LABEL!  fields,  respectively, 
on  a  TRIM  entry. 

2.  The  SURFLAB  must  appear  on  the  TRIM  card  with  the  character  string  SCHD  in  the  VALi 
field. 

3.  The  SURFLAB  may  be  any  valid  trim  parameter. 

4.  If  the  change  in  schedule  value  between  iterations  is  less  than  or  equal  to  CTOL,  the 
schedule  will  be  considered  converged. 

5.  The  first  PRMLABi  specified  in  the  SCHEDULE  entry  will  vary  the  festest  in  the  SVID 
AEFACT  entry,  the  second  will  vary  the  second  fastest,  and  so  on. 

6.  The  PRMLABi  may  be  any  trim  parameter  which  can  be  specified  on  the  TRIM  entry,  as  well 
as  MACH  and  QDP. 
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Example: 


A  leading  edge  flap  control  surface,  LEF,  is  to  be  scheduled  as  a  function  of  ALPHA  and  QDP  as 
follows: 


QDP  =  500  psf 

QDP  =  1000  psf 

QDP  =  1500  psf 

ALPHA  =  0“ 

o 

O 

25° 

10° 

ALPHA  =10° 

35° 

20° 

5° 

ALPHA  =  20° 

O 

O 

CO 

15° 

0° 

The  bulk  data  entries  defining  this  schedule  would  appear  as : 


SCHEDULE 

101 

LEF 

103 

ALPHA 

105 

QDP 

107 

103 

40. 

35. 

30. 

25. 

20. 

15. 

10. 

SCH1 

SiQHi 

5. 

0. 

105 

0. 

10. 

20. 

107 

500. 

1000. 

1500. 
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Field 

EID 

MODEL 

CP 

SETK 

SETG 

DZ 


_ _ Contents _ 

Element  identification  number  (Integer  >  0) 

Name  of  steady  aerodynamic  input  packet  (text  or  blank) 

Coordinate  system  defining  the  spline  plane  (Integer  >  0,  or  blank) 

Refers  to  a  PANLSTI  entry  which  lists  the  aerodynamic  boxes  whose 
motions  are  interpolated  using  this  spline  (Integer  >  0) 

Refers  to  a  SETi  entry  which  lists  the  structural  grid  points  to  which  the 
spline  is  attached  (Integer  >  0) 

Linear  attachment  flexibility  (Real  >  0.0) 


Remarks: 

1 .  The  SPLINE1  EID  must  be  unique  with  respect  to  all  other  SPLINEi  and  ATTACH  bulk  data 
entries,  it  is  used  only  for  error  messages. 

2.  If  no  CP  is  specified,  the  spline  plane  is  assumed  to  be  the  CAERO  macro  element  mean 
plane. 

3.  Only  the  component  of  aerodynamic  box  force  perpendicular  to  the  spline  plane  is  splined  to 
the  structural  model. 

4.  Aerodynamic  panel  slope  is  computed  using  structural  displacements  perpendicular  to  the 
spline  plane  rotation  axis.  The  spline  plane  rotation  axis  is  equal  to  the  cross  product  of  the 
spline  plane  normal  and  the  dire^on  of  free  stream  velocity. 

5.  The  attachment  flexibility  (units  of  area)  is  used  for  smoothing  the  interpolation.  If  DZ  =  0.0, 
the  spline  will  pass  through  all  deflected  grid  points.  If  DZ  » (area  of  spline),  a  least  squares 
plane  fit  will  occur.  Intermediate  values  will  provide  srrKxrthing. 
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input  Data  Entry:  SPLINE2  Linear  Spline 

Description:  Defines  a  beam  spline  for  interpolating  panels  and  bodies  for  aeroelastic 

analyses. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

EID 

MODEL 

SETK 

SETG 

DZ 

DTOR 

CID 

DTHX 

CONT 

DTHY 

SPLINE2 

1000 

22 

102 

0. 

1.0 

4 

-1. 

Field 

Contents 

EID 

Element  identification  number  (Integer  >  0) 

MODEL 

Name  of  steady  aerodynamic  input  packet  (text  or  blank) 

SETK 

Refers  to  a  PANLSTi  entry  which  lists  the  aerodynamic  boxes  whose 
motions  are  interpolated  using  this  spline  (Integer  >  0) 

SETG 

Refers  to  a  SET!  entry  which  lists  the  structural  grid  points  to  which  the 
spline  is  attached  (Integer  >  0) 

DZ 

Linear  attachment  flexibility  (Real  >  0.0} 

DTOR 

El 

Torsional  flexibility,  —  (Real  >  0.0;  use  1.0  for  bodies) 

CID 

Rectangular  coordinate  system  which  defines  the  y-axis  of  the  spline 
(integer  ^  0  or  blank;  not  used  for  bodies) 

DTHX.  DTHY 

Rotational  attachment  flexibility.  DTHX  is  for  rotation  about  the  x-axis; 
not  used  for  bodies.  DTHY  is  for  rotation  about  the  y-axis;  used  for  slope 
of  bodies.  (Real) 

Remarks: 

1 .  For  panels,  the  spline  axis  is  the  projection  of  the  y-axis  of  coordinate  system  CID,  projected 
onto  the  plane  of  the  panel.  For  bodies,  the  spline  axis  is  parallel  to  the  x-axis  of  the 
aerodynamic  coordinate  system. 

2.  The  flexibilities  are  used  for  smoothing.  Zero  attachment  flexibilities  will  imply  rigid 
attachment,  i.e.,  no  smoothing.  Negative  values  of  DTHX  and/or  DTHY  will  imply  no 
attachment. 

3.  The  SPLINE2  EID  must  be  unique  with  respect  to  all  other  SPLINEi  and  ATTACH  bulk  data 
entries,  it  is  used  only  for  error  messages. 
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Input  Data  Entry:  SPLINES  Three  Dimensional  Surface  Spline 

Description:  Defines  a  three  dimensional  sur^ce  spline  for  interpolating  out-of-plane  motion 

for  aeroeiastic  problems. 

Format  and  Example(s): 


1  2  3  4  5  6 _ 7 _ 8 _ 9  10 


|SPLINE3 

EID 

MODEL 

CP 

SETK 

SETG 

DZ 

SPLINE3 

3 

QDPAN1 

21 

101 

Field _  _ _ Contents _ 

EID  Element  identification  number  (Integer  >  0) 

MODEL  Name  of  steady  aerodynamic  input  packet  (text  or  blank) 

CP  Coordinate  system  defining  the  spline  plane  (Integer  >  0,  or  blank) 

SETK  Refers  to  a  PANLSTi  entry  which  lists  the  aerodynamic  boxes  whose 

motions  are  interpolated  using  this  spline  (integer  >  0) 

SETG  Refers  to  a  SET!  entry  which  liste  the  structural  grid  points  to  which  the 

spline  is  attached  (Integer  >  0) 

DZ  Linear  attachment  flexibility  (Real  >  0.0) 

Remarks: 

1 .  The  SPLINE3  EID  must  be  unique  with  respect  to  all  other  SPLINEi  and  ATTACH  bulk  data 
entries,  it  is  used  only  for  error  messages. 

2.  If  no  CP  is  specified,  the  spline  plane  is  assumed  to  be  the  CAERO  macro  element  mean 
plane. 

3.  The  spline  plane  (either  defouit  of  user  defined)  is  automatically  corrected  such  that  it 
includes  the  free  stream  velocity  vector.  First  the  corrected  spline  plane  rotation  axis  is 
computed  from  the  cross  product  of  the  defined  normal  and  the  free  stream  velocity 

( (n|t.)  =  (njif)  X  (nyo) ).  Second,  the  corrected  spline  plane  normal  is  computed  from  the  cross 
product  of  the  free  stream  velocity  and  the  corrected  spline  plane  rotation  axis 
(  (®N')  =  {“Vo)  ^  ("R’)  )• 

4.  Each  xyz-component  of  aerodynamic  box  force  is  splined  to  the  structural  model. 

5.  Each  aerodynamic  panel  slope  is  computed  using  structural  displacements  perpendicular  to 
the  local  panel  rotation  axis. 

6.  The  attachment  flexibility  (units  of  area)  is  used  for  smoothing  the  interpolation.  If  DZ  =  0.0, 
the  spline  will  pass  through  all  deflected  grid  points.  If  DZ  » (area  of  spline),  a  least  squares 
plane  fit  will  occur.  Intermediate  values  will  provide  smoothing. 
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Input  Data  Entry:  TCONBMST  Trim  Optimization  Component  Load  (BMST)  Constraint 

Description:  Defines  a  component  load  constraint  to  be  used  in  a  trim  optimization. 


BMSTi})  <  BMST(})  ^  or  BMST{})  >  BMST(i)  ^ 


Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9  10 

SETID 

BMSTLAB 

CMPNT 

CTYPE 

BMSTLIM 

101 

WROOT 

4 

UPPER 

1.0+7 

Field 

SETID 

BMSTLAB 

CMPNT 

CTYPE 

BMSTLIM 


_ Contents _ 

Set  identification  number  (Integer  >  0) 

Label  of  a  component  (Text) 

Component  number  of  the  component  load  (+/-  Integer,  1, 2,  3, 4, 5,  or  6) 

Constraint  type;  either  UPPER,  for  upper  bound,  or  LOWER  for  lower 
bound. 

(Text  Default  =  UPPER) 

Bound  for  the  component  load.  (Real)  (Consistent  units)  - 


Remarks: 

1 .  The  SETID  is  selected  by  the  TCONID  field  of  the  TRIMOPT  entry. 

2.  The  BMSTLAB  must  be  defined  by  a  BMST  entry. 

3.  In  the  case  of  an  asymmetric  trim  optimization  including  a  BMST  constraint  with  a  half  model, 
a  negative  BMST  component  number,  CMPNT,  refers  to  the  image  (left)  side  of  the  model. 

4.  A  LOWER  bound  constraint  excludes  all  values  to  the  left  of  BMSTLIM  on  a  real  number  line, 
while  an  UPPER  bound  excludes  all  values  to  the  right,  irrespective  of  the  sign  of  BMSTLIM. 
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Input  Data  Entry:  TCONFUNC  Trim  Optimization  Functional  Design  Constraint 

Description:  Define  one  or  more  functional  constraints  to  be  used  in  a  trim  optimization. 

F(v)sF(v)2r‘™'  O'-  F(v)k/'(v)S"^ 


Field _  _ _ Contents  _ 

SETID  Set  identification  number  selected  by  the  TCONID  field  in  the  TRIMOPT 

entry 

(Integer  >  0) 

TFID  Trim  optimization  function  identification  which  references  a  TFUNC  entry 

(Integer  >  0) 

CTYPE  Constraint  type;  either  UPPER,  for  upper  bound,  or  LOWER,  for  lower 

bound 

(Text,  Default  =  UPPER) 

FUNCLIM  Bound  for  the  function  value  (Real) 

Remarks: 

1 .  The  TCONFUNC  set  identification  is  selected  by  the  TCONID  field  in  the  TRIMOPT  entry. 

2.  The  TFID  is  referenced  to  a  TFUNC  Bulk  Data  entry. 

3.  A  LOWER  bound  constraint  excludes  all  values  to  the  left  of  FUNCLIM  on  a  real  number  line, 
while  an  UPPER  bound  excludes  all  values  to  the  right,  irrespective  of  the  sign  of  FUNCLIM. 
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input  Data  Entry:  TCONTRM  Trim  Optimization  Constraint  Definition  for  a  Trim  Parameter 
Description:  Defines  a  trim  parameter  constraint  to  be  used  in  the  trim  optimization. 


S  ^  scupper  Bom 
^Trim  —  ^Thm  Limit 


or 


Lower  Bound 
Trim  Limit 


Field _  _ Contents _ 

SETID  Set  identification  number  referenced  by  the  TCONID  in  the  TRIMOPT 

bulk  data  entry.  (Integer  >  0) 

PRMLAB  Alphanumeric  string  identifying  a  constrained  trim  parameter  (Text) 

(See  Remark  2.) 

CTYPE  Constraint  type;  either  UPPER,  for  upper  bound,  or  LOWER  for  lower 

bound. 

(Text,  Default  =  UPPER) 

PRMLIM  Bound  for  the  trim  parameter.  For  units,  see  Remark  3.  (Real) 

Remarks: 

1 .  The  TCONTRM  SETID  is  selected  by  the  TCONID  option  in  the  TRIMOPT  bulk  data  entry. 

2.  The  PRMLAB  may  refer  to  AESURF  or  CONLINK  control  surfaces  or  to  any  of  the  TRIM 
entry  parameters,  NX,  NY.  NZ.  PACCEL,  QACCEL,  RACCEL,  PRATE.  ORATE,  RRATE, 
ALPHA,  or  BETA.  The  only  requirement  is  that  the  constrained  trim  parameter  must  be 
declared  as  a  trim  optimization  design  variable  using  the  TODVPRM  entry.  The  user  will  be 
warned  if  trim  parameters  not  declared  as  trim  optimization  design  variables  are  constrained 
(since  these  parameters  are  fixed,  they  are  design  invariant). 

3.  The  units  for  control  surfoce  deflections  are  degrees.  For  rates,  the  units  should  be 
radians/sec.  For  linear  accelerations  NX,  NY,  NZ,  the  units  should  be  consistent, 
(length/sec/sec)  or,  if  a  CONVERT,  MASS  entry  was  used,  should  be  dimensionless. 
Angular  accelerations  should  be  in  radians/sec/sec. 

4.  A  LOWER  bound  constraint  excludes  all  values  to  the  left  of  PRMLIM  on  a  real  number  line, 
while  an  UPPER  bound  excludes  all  values  to  the  right,  irrespective  of  the  sign  of  PRMLIM. 
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Input  Data  Entry:  TFUNC  Trim  Optimization  Function  Definition 

Description:  Define  a  weighted  sum  function  to  be  used  in  a  trim  optimization. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

TFID 

FTYPEI 

FNAME1 

FID1 

WFACT1 

FTYPE2 

FNAME2 

FID2 

WFACT2 

-etc- 

101 

FARM 

NZ 

1.0 

FARM 

PRATE 

1.0 

Field _  _ Contents _ 

TFID  Trim  optimization  function  identification  number  (Integer  >  0) 

FTYPEi  Function  argument  type  selected  from  the  following  :  FARM,  BMST,  or 

DRAG  (Text) 

FNAMEi  Function  argument  name  (Text) 

FIDi  Function  argument  identification  number  (Integer) 

WFACTi  Weighting  factor  for  this  function  ai^ument  (Real)  (Default  =  1 .0) 

Remarks: 

1 .  The  TFID  field  is  referenced  to  the  TFID  field  in  a  TCONFUNC  entry  or  the  OBJID  field  in  a 
TRIMOPT  entry. 

2.  The  function  argument  name,  FNAMEi,  field  is  referenced  to  a  text  label  for  the  FARM  and 
BMST  function  argument  types. 

3.  The  function  argument  identification  number,  FIDi,  field  is  referenced  to  an  identification 
number  for  the  DRAG  function  argument  type  or  a  component  number  for  the  BMST  function 
argument  type.  In  the  case  of  an  asymmetric  trim  optimization  of  a  BMST  with  a  half  model,  a 
negative  BMST  component  number,  FiDi,  refers  to  the  image  (left)  side  of  the  model. 

4.  The  use  of  the  FNAMEi  and  FiDi  fields  vary  with  the  FTYPEi.  This  usage  is  shown  in  the 
table  below. 


FTYPEi 

FNAMEi 

FiDi 

FARM 

PRMLAB 

BMST 

BMSTLAB 

component# 

DRAG 

DRAGID 

5.  The  value  of  each  function  argument  will  be  multiplied  by  the  value  in  the  weighting  fector, 
WFACTi,  field. 

6.  The  function  value  will  be  the  weighted  sum  of  the  function  argument  values. 
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Input  Data  Entry:  TODVPRM  Trim  Optimization  Design  Variable  Definition  for  Trim  Parameters 


Description:  Defines  a  design  variable  for  the  trim  optimization  problem  when  the  variable  is  a 

trim  parameter. 


Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

SID 

DVID 

PRMLAB 

DVMIN 

DVMAX 

DVINIT 

101 

1001 

NZ 

-3.0 

9.0 

0.0 

Field _  _ Contents _ 

SID  Set  identification  number  (Integer  >  0) 

DVID  Design  variable  identification  number  (Integer  >  0) 

PRMLAB  Trim  parameter  label  (Text) 

DVMIN  Minimum  allowable  value  of  the  design  variable  (Real)  (Default  =  -1 000.) 

DVMAX  Maximum  allowable  value  of  the  design  variable  (Real)  (Deteult  =  1000.) 

DVINIT  Initial  value  of  the  design  variable  (Real,  DVMIN  ^  DVINIT  ^  DVMAX) 

(Defeult  =  0.0)  or  the  character  string,  TRIM 

Remarks: 

1 .  DVID  must  be  unique  within  the  set  identification. 

2.  The  character  string  TRIM  in  the  DVINIT  field  indicates  that  the  initial  value  of  the  design 
variable  is  to  be  determined  by  a  TRIM  solution  where  PRMLAB  must  appear  as  a  trim 
variable. 
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Input  Data  Entry:  TOMPPARM 
Parameters 


Trim  Optimization  Mathematical  Programming 


Description:  Identify  values  of  user  defined  optimizer  parameters  that  override  the  default 

values  for  use  in  the  trim  optimization. 


Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

TRIMID 

PARAM 

VALUE 

PARAM 

VALUE 

PARAM 

VALUE 

CONT 

PARAM 

VALUE 

-etc- 

101 

CTMIN 

0.0005 

ITMAX 

30 

Field _  _ Contents _ 

TRIMI D  Trim  identification  number  (Integer  >  0) 

PARAM  Name  of  parameter  to  be  overridden  (T ext) 

VALUE  Integer  or  real  value  to  be  used  for  the  parameter  (Integer  or  real) 

Remarks: 

1 .  Any  number  of  PARAM  -  VALUE  combinations  can  be  specified  on  a  TOMPPARM  entry. 

2.  See  p>DOT  software  manual  for  a  definition  of  parameters,  but  the  most  useful  are  shown 
below: 


REAL 

PARAMETER 

DEFINITION 

DEFAULT 

CT 

Constraint  tolerance.  A  constraint  is  active 
if  its  numerical  value  is  more  positive  than 
CT. 

-0.003 

CTMIN 

Minimum  constraint  tolerance  for  nonlinear 
constraints.  If  a  constraint  is  more  positive 
than  CTMIN,  it  is  considered  to  be  violated. 

-0.003 

DABOBJ 

Maximum  absolute  change  in  the  objective 
between  two  consecutive  iterations  to 
indicate  convergence  in  optimization. 

iiiax(0.001  |F4 , 0.0001) 

DELOBJ 

Maximum  relative  change  in  the  objective 
between  two  consecutive  iterations  to 
indicate  convergence  in  optimization. 

0.001 

DOBJ1 

Relative  change  in  the  objective  function 
attempted  on  the  first  optimization  iteration. 
Used  to  estimate  initial  move  in  the  one- 
directional  search.  Updated  as  the 
optimization  progresses. 

0.1 

DOBJ2 

Absolute  change  in  the  objective  function 
attempted  on  the  first  optimization  iteration. 
Used  to  estimate  initial  move  in  the  one- 
directional  search.  Updated  as  the 

0.2  max(Xj) 
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optimization  progresses. 
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REAL 

PARAMETER 

DEFINITION 

DEFAULT 

DX1 

Maximum  relative  change  in  a  design 
variable  attempted  on  the  first  optimization 
iteration.  Used  to  estimate  initial  move  in 
the  one^imensional  search.  Updated  as 
the  optimization  progresses. 

0.01 

DX2 

Maximum  absolute  change  in  a  design 
variable  attempted  on  the  first  optimization 
iteration.  Used  to  estimate  initial  move  in 
the  one-dimensional  search.  Updated  as 
the  optimization  progresses. 

0.02 

INTEGER 

PARAMETER 

DEFINITION 

DEFAULT 

ISCAL 

Scaling  parameter.  By  deteult,  scaling  is 
done  every  NDV  iterations,  otherwise 
scaling  is  performed  every  ISCAL 
iterations.  (-1  turns  off  scaling) 

NDV 

ITMAX 

Maximum  number  of  iterations  allowed  at 
the  optimizer  level. 

40 

ITRMOP 

The  number  of  consecutive  iterations  for 
which  the  absolute  or  relative  convergence 
criteria  must  be  met  to  indicate 
convergence  at  the  optimizer  level. 

2 
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Input  Data  Entry:  TRIM  Trim  Variable  Specification 

Description:  Specifies  conditions  for  steady  aeroelastic  trim 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

02101 

SETID 

MACH 

QDP 

TRMTYP 

EFFID 

VO 

CONT 

LABEL1 

VAL1 

LABEL2 

VAL2 

LABEL3 

VAL3 

LABEL4 

VAL4 

-etc- 

1001 

0.90 

1200. 

PITCH 

100 

926.3 

NZ 

8.0 

QRATE 

0.243 

ELEV 

FREE 

ALPHA 

FREE 

Field 

Contents 

SETID 

Trim  set  identification  number  (Integer  >  0) 

MACH 

Mach  number  (Real  >  0.0) 

QDP 

Dynamic  pressure  (Real  ^  0.0) 

TRMTYP 

Type  of  trim  required  (Text  or  blank)  (See  Remark  3) 
blank  SUPORT  controlled  trim 

ROLL  Antisymmetric  roll  trim  (1  DOF) 

LIFT  Symmetric  trim  of  lift  forces  (1  DOF) 

PITCH  Symmetric  trim  of  lift  and  pitching  moment  (2 

DOF) 

EFFID 

identification  number  of  CONEFFS  Bulk  Data  entries  which  modify 
control  surface  effectiveness  values  (Integer  >  0  or  blank)  (Remark  2) 

VO 

True  velocity  (Real  ^  0.0  or  blank)  (See  Remark  14) 

LABEL! 

Label  defining  aerodynamic  trim  parameters 

VALi 

Magnitude  of  the  specified  trim  parameter  (Real),  the  character  string 
FREE ,  or  the  character  string  SCHD 

Remarks: 

1 .  The  TRIM  entry  is  selected  in  Solution  Control  in  the  FTRIM  or  NPSAERO  disciplines  with 
the  TRIM  option. 

2.  All  aerodynamic  forces  created  by  the  control  sur^ce  will  be  reduced  to  the  referenced 
amount  For  example,  an  EFF1  of  0.70  indicated  a  30%  reduction  in  the  forces. 

3.  The  TRMTYP  filed  has  the  following  interpretation: 

LIFT  Implies  that  the  vertical  acceleration  will  be  trimmed  by  one  FREE  symmetric 
control 

parameter  of  surface  —  OR  —  the  acceleration  computed  for  some  set  of 

symmetric 

parameters/surfeces. 

ROLL  Implies  that  the  roll  acceleration,  PACCEL,  will  be  trimmed  by  one  FREE 
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antisymmetric 

control  parameter  of  surface  —  OR  —  the  acceleration  computed  for  some  set 
of 


antisymmetric  parameters/surfaces.  Any  number  of  antisymmetric  parameters 

may  be 

fixed,  but  the  FREE  parameters  are  limited  to  PACCEL  —  OR  —  any  one 
antisymmetric 

parameter  or  sur^ce.  For  example,  PACCEL=0.0;  AILERON=1 .0; 


PRATE=FREE 

PITCH  Implies  that  the  vertical  acceleration,  NZ,  and  the  pitch  acceleration,  QACCEL, 
will  be 

trimmed  by  no  more  than  two  FREE  symmetric  control  parameters  or  surfaces 

— OR  — 

the  accelerations  computed  for  some  set  of  symmetric  parameters/surfaces.  Any 


number 

of  symmetric  surfaces  may  be  fixed,  but  the  FREE  parameters  are  limited  to 

QACCEL 

and  NZ  —  OR  —  up  to  two  symmetric  parameters  or  surfaces  —  OR  —  some 
combination.  For  example,  NZ=8.0g’s;  QACCEL=0.0;  ALPHA=FREE; 
ELEV-FREE 


blank  Implies  that  the  support  DOFs  are  equal  to  the  number  of  free  parameters. 
Appropriate 

trim  equations  are  assembled  and  solved. 

4.  Units  for  QDP  are  force  per  unit  area. 

5.  Units  for  VO  are  length  per  second. 

6.  Allowable  options  for  LABEL!  for  symmetric  trim  (the  symmetry  option  is  selected  in  Solution 
Control)  are; 

Structural  Accelerations 

NX  Longitudinal  load  factor  (acceleration)  (Remark  12) 

NZ  Vertical  load  factor  (acceleration)  (Remark  12) 

QACCEL  Pitch  acceleration  (Remark  13) 

Aerodynamic  Parameters 

ALPHA  Angle  of  attack  in  degrees 

QRATE  Pitch  rate  (Remark  14) 

THKCAM  Thickness  and  camber  (Remark  1 5) 

and  Control  surface  position  in  degrees 

7.  Allowable  options  for  LABEL!  for  antisymmetric  trim  (the  symmetry  option  is  selected  in 
Solution  Control)  are; 

Structural  Accelerations 


NY  Lateral  load  factor  (acceleration)  (Remark  12) 

PACCEL  Roil  acceleration  (Remark  13) 

RACCEL  Yaw  acceleration  (Remark  13) 
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Aerodynamic  Parameters 


BETA  Side-slip  angle  in  degrees 

PRATE  Roll  rate  (Remark  14) 

RRATE  Yaw  rate  (Remark  14) 

and  Antisymmetric  control  suifeces  in  degrees 

8.  Allowable  options  for  LABEL!  for  asymmetric  trim  (the  symmetry  option  is  selected  in 
Solution  Control)  are  any  of  the  options  listed  above  for  symmetric  and  antisymmetric  trim.  It 
is  up  to  the  user  to  specify  a  solvable  trim  problem. 

9.  If  VALI  is  a  real  number, -the  associated  aerodynamic  parameter  of  structural  acceleration  is 
set  to  that  value.  If  VALi  is  the  character  string  FREE,  then  the  associated  parameter  will  be 
determined  as  part  of  the  trim  analysis.  If  VALI  contains  the  character  string  SCHD,  then  a 
SCHEDULE  entry  with  the  same  TRIMID  and  SURFLAB  =  LABEL!  will  be  used  to  determine 
the  value  of  the  associated  parameter. 

10.  The  number  of  FREE  values  of  VAL!  must  correspond  exactly  to  the  number  of  unknowns  in 
the  trim  analysis.  If  TRNITYP  is  blank,  the  number  of  SUPORT  DOFs. 

11.  If  TRIMID  is  referenced  by  an  NPSAERO  discipline,  TRMTYP  must  be  blank  and  FREE  is  not 
allowed  for  VALI. 

12.  For  NX,  NY,  and  NZ,  units  are  length  per  second  per  second  in  consistent  units  unless  a 
CONVERT/MASS  Bulk  Data  entry  is  provided.  In  this  case,  the  values  are  dimensionless. 

13.  The  angular  accelerations,  PACCEL,  QACCEL,  and  RACCEL,  are  entered  in  units  of  radians 
per  second  per  second. 

14.  PRATE,  QRATE,  and  RRATE  are  entered  in  units  of  radians  per  second.  The  true  velocity, 
VO,  must  be  input  if  any  of  the  “rate”  parameters  are  given  since  its  value  is  needed  to 
dimensionalize  the  forces  computed  for  a  unit  rate  per  velocity  in  the  aerodynamic  preface. 

15.  The  THKCAM  label  refers  to  thickness  and  camber  effects  and  its  corresponding  value  is 
usually  set  to  1 .0.  Non-unit  values  of  the  THKCAM  parameter  are  available  only  to  provide 
added  generality. 

16.  Any  control  surfoces,  trim  parameters,  or  structural  accelerations  not  specified  on  the  TRIM 
entry  will  not  participate  in  the  analysis;  they  will  be  given  fixed  values  of  0.0.  This  includes 

THKCAM. 

17.  Refer  to  the  STATIC  AEROELASTIC  TRIM  Application  Note  for  more  information. 


92 


Input  Data  Entry:  TRIMOPT  Trim  Optimization  Definition 
Description:  Defines  the  trim  optimization  problem. 

Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

TRIMID 

OPTFLG 

OBJTYP 

OBJNAM 

OBJID 

TCONID 

TDVSID 

CONT 

MAXITER 

MOVLIM 

CNVGLIM 

PRINT 

3 

MIN 

BMST 

WROOT 

4 

101 

103 

O 

CD 

< 

5 

1.0 

1 

Field 

TRIMID 

OPTFLG 

OBJTYP 

OBJNAM 

OBJID 

TCONID 

TDVSID 

MAXITER 

MOVLIM 


CNVGLIM 

PRINT 


_ Contents _ _ _ 

Trim  set  identification  number  (Integer  >  0)  of  the  associated  TRIM  or 
RTRIM  entry. 

Optimization  flag  (Text)  selected  from  the  following: 

MIN  MAX 

Objective  function  type  (Text)  selected  from  the  following: 

FUNC  PARM  BMST  DRAG 

Objective  function  name  (Text  or  blank) 

Objective  function  identification  number  or  BMST  load  component 
number 

(+/- Integer  or  blank)  (See  Remark  5.) 

Trim  optimization  constraint  set  identification  (Integer  >  0) 

Trim  optimization  design  variable  set  identification  (Integer  >  0) 

Maximum  number  of  optimization  iterations  to  be  performed 
(Integer  >0)  (Default  =  5) 

The  move  limit  applied  to  trim  optimization  design  variables.  The  trim 
variable  after  each  iteration  will  lie  between  t  /  MOVLIM  and  t  *  MOVLIM 
where  t  is  the  initial  value.  (Real  ^  0.0)  (Default  =  2.0)  (NOT 
IMPLEMENTED) 

Convergence  limit  specifying  the  maximum  allowable  imbalance  in  a 
supported  degree  of  freedom  that  can  be  considered  converged. 

(Real  >  0.0,  consistent  units)  (Defoult  =  1 .0) 

Trim  Optimization  p-DOT  print  flag  (Integer  0-7)  (Default  =  0) 

(See  Remark  8.) 


Remarks: 

1.  The  trim  optimization  identification  number,  TOPTID,  is  referenced  in  the  FTRIM  or  RTRIM 
entry  in  solution  control  packet 
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2.  In  the  OPTFLG  field,  MIN  signifies  that  the  objective  function  will  be  minimized  and  MAX 
signifies  that  the  objective  function  will  be  maximized. 

3.  In  the  OBJTYP  field,  FUNC  indicates  that  the  objective  function  is  a  function  defined  by  a 
TFUNC  entry,  PARM  indicates  that  the  objective  function  is  a  trim  parameter,  BMST  indicates 
that  the  objective  function  is  a  component  load  defined  by  a  BMST  entry,  and  DRAG 
indicates  that  the  objective  function  is  the  drag  defined  in  a  DRAG  entry. 

4.  The  objective  function  name,  OBJNAM,  field  is  referenced  to  a  text  label  for  the  PARM  and 
BMST  objective  function  types.  If  OBJTYPsPARM,  OBJNAM  may  be  any  trim  parameter 
label  which  can  be  specified  on  a  TRIM  entry  for  the  given  symmetry.  If  OBJTYP=BMST, 
OBJNAM  must  be  defined  by  a  BMST  entry. 

5.  The  objective  function  identification  number,  OBJID,  field  is  referenced  to  an  identification 
number  for  the  FUNC  and  DRAG  objective  function  types  or  a  BMST  load  component  number 
for  the  BMST  objective  function  type.  In  the  case  of  an  asymmetric  trim  optimization  of  a 
BMST  with  a  half  model,  a  negative  BMST  component  number,  OBJID,  refers  to  the  image 
(left)  side  of  the  model. 

6.  The  use  of  the  OBJNAM  and  OBJID  fields  vary  with  the  OBJTYP.  This  usage  is  shown  in 
the  table  below. 


OBJTYP 

OBJNAM 

OBJID 

FUNC 

TFID 

PARM 

PRMLAB 

BMST 

BMSTLAB 

component# 

DRAG 

DRAGID 

5.  The  trim  optimization  constraint  set  identification,  TCONID,  is  referenced  to  a  TCONTRM, 
TCONFUNC,  TCONBMST,  orTCONDRAG  bulk  data  entry. 

6.  The  trim  optimization  design  variable  set  identification,  TDVID,  is  referenced  to  a  TODVPRM 
bulk  data  entry. 

7.  The  MAXITER,  MOVLIM,  and  CNVGLIM  values  are  applicable  to  the  trim  optimization 
process  external  to  p-DOT.  p>DOT  default  parameters  may  be  changed  via  the  TOMPPARM 
bulk  data  entry. 

8.  The  Trim  Optimization  p-DOT  print  flag  may  take  the  following  values: 


PRINT  =  0 

No  output 

PRINT  =1 

Initial  information  and  results 

PRINT  =  2 

Same  as  above  plus  function  values  at  each  iteration 

PRINT  =  3 

Same  as  above  plus  internal  parameters 

PRINT  =  4 

Same  as  above  plus  search  directions 

PRINT  =  5 

Same  as  above  plus  gradients 

PRINT  =  6 

Same  as  above  plus  scaling  information 

PRINT  =  7 

Same  as  above  plus  1-D  search  information 
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Input  Data  Entry:  TRIMR  Rigid  Trim  Variable  Specification 
Description:  Specifies  conditions  for  rigid  trim. 


Format  and  Example(s): 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

SETID 

MACH 

QDP 

TRMTYP 

EFFID 

VO 

CONT 

XREF 

YREF 

ZREF 

MASSID 

CMPNTS 

CONT 

LABEL1 

VALI 

LABEL2 

VAL2 

LABEL3 

VAL3 

LABEL4 

VAL4 

-etc- 

TRIMR 

1001 

0.90 

1200. 

PITCH 

100 

926.3 

201^21111111 

300. 

0. 

0. 

1001 

saiB 

NZ 

8.0 

QRATE 

0.243 

ELEV 

FREE 

ALPHA 

FREE 

Field 

SETID 

MACH 

OOP 

TRMTYP 


EFFID 

VO 

XREF 

YREF 

ZREF 

MASSID 

CMPNTS 

LABEL! 

VALi 


_ Contents _ 

Trim  set  identification  number  (Integer  >  0) 

Mach  number  (Real  ^  0.0) 

Dynamic  pressure  (Real  >  0.0) 

Type  of  trim  required  (Text  or  blank)  (See  Remark  3) 
blank  CMPNTS  controlled  trim 

ROLL  Antisymmetric  roll  trim  (1  DOF) 

LIFT  Symmetric  trim  of  lift  forces  (1  DOF) 

PITCH  Symmetric  trim  of  lift  and  pitching  moment  (2 

DOF) 

Identification  number  of  CONEFFS  Bulk  Data  entries  which  modify 
control  surfoce  effectiveness  values  (integer  >  0  or  blank)  (Remark  2) 

True  velocity  (Real  >  0.0  or  blank)  (See  Remark  16) 

Reforence  x-axis  location  for  sum  of  moments  (Real) 

Reference  y-axis  location  for  sum  of  moments  (Real) 

Reference  z-axis  location  for  sum  of  moments  (Real) 

Identification  number  of  RMASS  Bulk  Data  entry  specifying  the  inertia 
data  to  be  used  for  trim  (Integer  >  0) 

Component  number(s)  to  be  used  for  trim  (blank  or  any  unique 
combination  of  the  digits  1  through  6) 

Label  defining  aerodynamic  trim  parameters 

Magnitude  of  the  specified  trim  parameter  (Real),  the  character  string 
FREE,  or  the  character  string  SCHD 


Remarks: 

1 .  The  TRIMR  entry  is  selected  in  Solution  Control  in  the  RTRIM  discipline  with  the  TRIM  option. 
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2.  All  aerodynamic  forces  created  by  the  control  sur^ce  will  be  reduced  to  the  referenced 
amount.  For  example,  an  EFF1  of  0.70  indicated  a  30%  reduction  in  the  forces. 

3.  The  TRMTYP  filed  has  the  following  interpretation: 

LIFT  implies  that  the  vertical  acceleration  will  be  trimmed  by  one  FREE  symmetric 
control 

parameter  of  surface  —  OR  —  the  acceleration  computed  for  some  set  of 

symmetric 

parameters/surfaces. 


ROLL  Implies  that  the  roll  acceleration,  PACCEL,  will  be  trimmed  by  one  FREE 
antisymmetric 

control  parameter  of  surface  —  OR  —  the  acceleration  computed  for  some  set 
of 


antisymmetric  parameters/surfaces.  Any  number  of  antisymmetric  parameters 

may  be 

fixed,  but  the  FREE  parameters  are  limited  to  PACCEL  — OR —  any  one 
antisymmetric 

parameter  or  surfoce.  For  example,  PACCEL=0.0;  AILERON=1.0; 
PRATE=FREE 


PITCH  Implies  that  the  vertical  acceleration,  NZ,  and  the  pitch  acceleration,  QACCEL, 
will  be 

trimmed  by  no  more  than  two  FREE  symmetric  control  parameters  or  surfaces 

— OR  — 

the  accelerations  computed  for  some  set  of  symmetric  parameters/surfaces.  Any 

number 

of  symmetric  surfaces  may  be  fixed,  but  the  FREE  parameters  are  limited  to 

QACCEL 

and  NZ  • —  OR  —  up  to  two  symmetric  parameters  or  surfaces  —  OR  —  some 
combination.  For  example,  NZ=8.0g’s;  QACCEL=0.0;  ALPHA=FREE; 
ELEV=FREE 

blank  Implies  that  the  specified  DOFs  are  equal  to  the  number  of  free  parameters. 
Appropriate 

trim  equations  are  assembled  and  solved. 

4.  Units  for  QDP  are  force  per  unit  area. 

5.  Units  for  VO  are  length  per  second. 

6.  ]C^F,  YREF,  and  2IREF  define  the  reference  location  about  which  the  moments  will  be 
summed  to  trim  the  aircraft  These  values  must  reference  the  same  coordinate  system  that 
the  aerodynamic  model  was  defined  in.  This  is  also  the  location  where  the  specified  RMASS 
inertia  is  assumed  to  be  concentrated.  In  other  words,  these  values  define  the  center-of- 
gravity  of  the  aircraft. 

7.  The  MASSID  should  specify  a  RMASS  Bulk  Data  entry  that  defines  the  inertia  of  the  full 
aircraft  to  be  trimmed. 

8.  The  CMPNTS  field  specifies  the  DOFs  in  which  the  aircraft  will  be  trimmed,  i.e.  zero  net  load: 
It  is  up  to  the  user  to  specify  a  reasonable  combination  of  DOFs  and  free  trim  parameters  that 
will  define  a  solvable  trim  problem.  The  CMPNTS  field  is  required  if  the  TYMTYP  field  is 
blank.  Any  entry  in  the  CMPNTS  field  will  be  ignored  if  a  TRMTYP  is  specified. 
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9.  Allowable  options  for  LABEL!  for  symmetric  trim  (the  symmetry  option  is  selected  in  Solution 
Control)  are: 

Structural  Accelerations 

NX  Longitudinal  load  factor  (acceleration)  (Remark  14) 

NZ  Vertical  load  foctor  (acceleration)  (Remark  14) 

QACCEL  Pitch  acceleration  (Remark  15) 

Aerodynamic  Parameters 

ALPHA  Angle  of  attack  in  degrees 

QRATE  Pitch  rate  (Remark  16) 

THKCAM  Thickness  and  camber  (Remark  1 7) 

and  Control  surfoce  position  in  degrees 

10.  Allowable  options  for  LABEL!  for  antisymmetric  trim  (the  symmetry  option  is  selected  in 
Solution  Control)  are: 

Structural  Accelerations 

NY  Lateral  load  foctor  (acceleration)  (Remark  14) 

PACCEL  Roll  acceleration  (Remark  15) 

RACCEL  Yaw  acceleration  (Remark  1 5) 

Aerodynamic  Parameters 

BETA  Side-slip  angle  in  degrees 

PRATE  Roll  rate  (Remark  16) 

RRATE  Yaw  rate  (Remark  16) 

and  Antisymmetric  control  surfoces  in  degrees 

1 1 .  Allowable  options  for  LABEL!  for  asymmetric  trim  (the  symmetry  option  is  selected  in 
Solution  Control)  are  any  of  the  options  listed  above  for  symmetric  and  antisymmetric  trim.  It 
is  up  to  the  user  to  specify  a  solvable  trim  problem. 

12.  If  VALI  is  a  real  number,  the  associated  aerodynamic  parameter  of  structural  acceleration  is 
set  to  that  value.  If  VAL!  is  the  character  string  FREE,  then  the  associated  parameter  will  be 
determined  by  the  trim  analysis.  If  VAL!  contains  the  character  string  SCHD,  then  a 
SCHEDULE  entry  with  the  same  TRIMID  and  SURFLAB  =  LABEL!  will  be  used  to  determine 
the  value  of  the  associated  parameter. 

13.  The  number  of  FREE  values  of  VAL!  must  correspond  exactly  to  the  number  of  unknowns  in 
the  trim  analysis.  If  TRMITYP  is  blank,  the  number  of  specified  DOFs  in  the  CMPNTS  field. 

14.  For  NX,  NY,  and  NZ,  units  are  length  per  second  per  second  in  consistent  units  unless  a 
CONVERT/MASS  Bulk  Data  entry  is  provided,  in  this  case,  the  values  are  dimensionless. 

15.  The  angular  accelerations,  PACCEL,  QACCEL,  and  RACCEL,  are  entered  in  units  of  radians 
per  second  per  second. 

16.  PRATE,  QRATE,  and  RRATE  are  entered  in  units  of  radians  per  second.  The  true  velocity, 
VO,  must  be  input  if  any  of  the  “rate”  parameters  are  given  since  its  value  is  needed  to 
dimensionalize  the  forces  computed  for  a  unit  rate  per  velocity  in  the  aerodynamic  preface. 

17.  The  THKCAM  label  refers  to  thickness  and  camber  effects  and  its  corresponding  value  is 
usually  set  to  1.0.  Non-unit  values  of  the  THKCAM  parameter  are  available  only  to  provide 
added  generality. 
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18.  Any  control  sur^ces  trim  parameters,  or  structural  accelerations  not  specified  on  the  TRIM 
entry  will  not  participate  in  the  analysis;  they  will  be  given  fixed  values  of  0.0.  This  includes 

THKCAM. 

19.  Refer  to  the  STATIC  AEROELASTIC  TRIM  Application  Note  for  more  information. 


THIS  FEATURE  IS  NOT  IMPLEMENTED. 
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Input  Data  Entry:  SLPARM  User  Defined  Static  Load  Control  Parameter 

Description:  Defines  linear  load  combination  of  Static  Load  components  as  a  control 

parameter  for  aircraft  trim. 

Format  and  Example(s): 


1  2  3  4  5  6  7 _ 8 _ 9 _ 10 


ISLPARM 

PARAM1 

VAL1 

PARAM2 

VAL2 

PARAM3 

VAL3 

SYM 

PARMTYP 

CONT 

SCALE 

LOAD 

CONT 

SLPARM 

SURF1 

1.5 

ASYM 

MECH 

+123 

+123 

1.0 

101 

-1.5 

102 

Field 

PARAM1 

VAL1 

PARAM2 

VAL2 

PARAM3 

VAL3 

SYM 

PARMTYP 

SCALE 

LOAD 


_ Contents _ 

Label  of  user  defined  controller  for  first  level  trim  parameter  (Text) 
Value  of  first  level  trim  parameter  setting  (Real) 

Label  of  user  defined  controller  for  second  level  trim  parameter  (Text) 
Value  of  second  level  trim  parameter  setting  (Real) 

Label  of  user  defined  controller  for  third  level  trim  parameter  (Text) 
Value  of  third  level  trim  parameter  setting  (Real) 

Trim  parameter  symmetry  (SYM,  ANTI,  or  ASYM)  (Text) 

Load  type  (MECH,  GRAV,  THRM)  (Text) 

Scale  on  load  set  LOAD  (Real) 

Load  set  ID  of  FORCE,  MOMENT,  FORCE1,  MOMENT1,  PLOAD, 
GRAV,  TEMP,  and  TEMPO  load  type  (Integer  >  0) 


Remarks: 

1 .  The  user  defined  control  parameter  load  will  be  integrated  as  a  linear  combination  of  the 
component  loads. 

2.  Scalar  combination  of  component  loads  are  only  valid  on  common  load  types  (LODTYP). 

3.  The  user  defined  control  parameter  load  is  assembled  into  the  RIGDSLOD  group  in 
preparation  for  the  assembly  of  the  AIRFORCE  matrix  during  the  boundary  condition  loop  for 
aeroelastic  analysis. 

4.  The  routine  UDEFMRG  combines  the  RIGDSLOD  parameters  into  the  AIRFORCE  matrix 
through  direction  from  Model  assembly  commands.  Also,  a  blank  column  is  designated  in  the 
AEROLOAD  matrix  for  each  SLPARM.  Finally,  the  TRIMTOC  relation  is  updated  with  the 
SLPARM  controller  name  and  values. 
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6.  QUADPAN  MODEL  GEOMETRY 


6.1  INTRODUCTION 

This  chapter  describes  the  basic  concepts  required  for  modeling  configurations  with 
QUADPAN.  The  geometric  requirements,  definitions,  and  conventions  pertaining  to  configurations, 
panels,  and  elements  are  discussed  first  This  introductory  material  ignores  the  many  options 
available  for  geometry  generation.  The  initial  sections  deal  only  with  the  “developed”  lattice,  which 
may  be  input  directly  or  may  be  defined  using  the  options  available  in  the  input  package. 

Finally,  the  capabilities  available  as  input  options  to  enhance  the  geometry  definition  process 
are  described,  including  transformations  that  may  be  applied  to  input  data,  alternate  input  coordinate 
systems  and  panel  respacing  options.  The  actual  contents  of  QUADPAN  data  sets  are  detailed  in 
Chapter  7. 


6.2  OVERVIEW  OF  MODEL  DEFINITION 

QUADPAN  calculates  potential  flow  by  representing  the  surface  of  the  configuration  with  an 
essentially  continuous  lattice  of  quadrilateral  elements.  The  task  of  developing  a  geometric  model 
begins  with  a  full  surface  definitioii  of  the  configuration  and  consists  of  generating  a  lattice  of 
elements  which  represents  this  surface  and  meets  the  requirements  imposed  by  the  numerical 
formulation  (no  g^,  no  highly  skewed  or  twisted  elements,  etc.).  In  principle,  the  user  could 
manually  construct  a  grid  on  the  surface  and  input  the  lattice  comer  points  to  the  program.  When 
none  of  the  input  options  are  employed,  the  input  to  the  program  defaults  to  exactly  this  form.  In 
practice,  this  method  of  producing  a  geometric  model  is  unnecessarily  time  consuming  because  the 
number  of  elements  in  a  typical  model  is  large  and  describing  the  surface  with  the  element  lattice 
directly  is  not  very  efficient. 

The  input  options  exist  to  partially  automate  the  task  of  producing  a  lattice  from  the  typical 
engineering  definitions  of  the  surface  of  a  configuration.  The  user  inputs  two  kinds  of  information;  a 
representation  of  the  true  surface  of  the  configuration,  and  instmctions  on  how  this  surfiice  is  to  be 
subdivided  to  produce  an  acceptable  lattice.  Figure  6-1  shows  the  surface  defined  by  the  user  and  the 
lattice  which  the  program  generates  fix)m  the  lattice  spacing  instmctions.  Only  when  the  actual 
element  lattice  is  input  directly  is  the  second  kind  of  input  information  not  required. 

The  basic  building  block  of  the  geometric  model  is  the  PANEL.  Panels  and  the  element 
lattice  which  the  program  generates  from  them  are  illustrated  in  Figures  6-1  and  6-2.  A  panel  is  an 
arbitrary  curved  sur&ce  with  four,  generally  curved,  edges.  The  geometric  shape  of  the  panel  is 
specified  by  the  user  with  several  curves  called  SECTIONS  which  are  defined  by  points  on  the 
configuration  surface.  The  program  develops  each  section  by  interpolating  curves  through  the  user- 
specified  points.  The  program  then  develops  the  surface  of  the  configuration  by  interpolating  between 
the  section  curves.  Aside  from  the  points  which  define  the  end  points  of  the  panel  edges,  the  user- 
specified  points  need  not  be  related  to  the  location  of  the  lattice  points  which  will  ultimately  be 
produced,  as  shown  in  Figure  6-1.  Generally,  the  points  used  to  define  the  panel  are  points  which  are 
convenient  in  terms  of  the  geometrical  data  at  the  user’s  disposal.  Each  panel  is  then  automatically 
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subdivided  into  a  lattice  of  quadrilateral  elements  whose  comer  points  lie  on  the  surface  of  the  panel, 
and  whose  number  and  distribution  is  specified  by  the  user. 


PROGRAM  GENERATES  LATTICE  USING 
USER  DEFINED  RESPACING  INSTRUCTIONS 


Figure  6-1  Generation  of  Mesh  From  User  Defined  Geometry 
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OUTWARD  NORMAL 


Figure  6-2  Configuration,  Panel  and  Element  Hierarchy 
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CONFIGURATION 


The  problem  of  generating  a  lattice  composed  of  many  quadrilateral  elements  is  simplified, 
by  using  panels  and  respacing  options,  to  the  problem  of  specifying  the  shape  of  a  few  arbitrarily 
curved  panels,  and  specifying  how  each  panel  is  to  be  divided  into  a  lattice  of  elements.  Furthermore, 
the  geometry  definition  points  and  lattice  points  need  not  be  identical,  so  the  user  can  define  the 
geometry  at  points  where  geometrical  data  is  available,  while  establishing  an  element  lattice  which 
meets  the  computational  requirements. 


63  QUADPAN  LATTICE 

The  characteristics  of  QUADPAN  which  must  be  considered  in  the  generation  of  a  suitable 

computational  mesh  are  summarized  in  the  following  list.  Additional  details  on  each  characteristic 

can  be  found  in  the  Ref.  4. 

o  The  mesh  must  represent  one  or  more  closed  bodies  in  which  only  one  side  is  exposed  to  the  flow. 

o  If  the  configuration  is  symmetric  about  the  X-Z  plane  the  mesh  should  be  defined  by  the  user  for 

only  one  side. 

o  It  is  desirable  that  the  element  mesh  be  continuous;  that  is,  each  element  should  touch  only  one 
neighbor  on  each  side.  Under  special  circumstances  this  can  be  relaxed. 

o  Elements  in  the  mesh  should  not  be  highly  kinked  or  twisted. 

o  The  best  accuracy  for  a  given  number  of  elements  (cost)  is  obtained  when  elements  are 
concentrated  in  areas  of  high  curvature  or  any  other  area  where  large  velocity  gradients  are 
expected. 

o  The  user  must  define  lattice  elements  which  represent  a  vortex  wake  for  each  surface  which 
develops  lift. 

o  The  upper  and  lower  surfaces  which  shed  a  wake  must  have  similar  element  shape  and  size  near 
the  shedding  edge. 

o  The  side  edges  of  the  wake  mesh  should  be  continuous  with  the  mesh  on  the  body  (in  fact  it  must 
join  the  body  at  a  panel  boundary)  for  correct  calculation  of  the  pressure  on  the  body. 


6.4  REPRESENTATION  OF  SURFACES  WITH  PANELS  OF  ELEMENTS 

The  method  used  to  define  input  geometries  for  QUADPAN  preserves  most  of  the  flexibility 
of  element  by  element  input  and  adds  a  number  of  useful  options  that  can  dramatically  reduce  the 
amount  of  data  required  to  describe  the  geometry.  The  configuration  surface  is  represented  with  one 
or  more  PANELS  of  elements,  where  each  panel  is  subdivided  into  a  “rectangular”  lattice  of  elements. 
Figure  6-2  graphically  illustrates  the  relationship  between  configurations,  panels  and  elements. 


104 


6.4.1  Division  of  Configuration  Into  Panels 

Simple  shapes  such  as  a  straight  tapered  wing  or  a  cylindrical  fuselage  forebody  may  be  well 
defined  by  one  panel,  while  more  complex  shapes  such  as  the  finned  body  in  Figure  6-3  may  require  a 
number  of  panels  to  represent  its  surface  details  adequately.  QUADPAN  places  no  specific  geometric 
restrictions  on  panels  as  far  as  being  wing  type  panels  or  fuselage  type  panels,  instead  all  panels  are 
treated  uniformly  as  pieces  of  surface  geometry  whose  particular  boundary  condition  (body  or  wake) 
is  specified  separately.  This  boundary  condition  is  applied  to  all  of  the  elements  that  make  up  the 
panel,  necessitating  the  division  of  the  configuration  into  panels.  A  wing  and  its  wake,  for  example, 
must  be  separate  panels  due  to  the  different  boundary  conditions  required  for  each.  The  division  of 
the  configuration  surface  into  panels  is  done  primarily  as  a  means  of  organizing  the  input  to  and 
output  from  the  program. 


6.4.2  Continuity  Of  Panel  Mesh 

Panels  normally  abut  (touch)  one  another  at  their  edges  to  form  a  continuous  surface  mesh. 
This  is  possible  when  the  user  has  specified  the  geometry  in  such  a  way  that  the  elements  on  both 
edges  of  an  abutment  are  contiguous.  It  is  not  necessary  that  panels  containing  the  elements  be 
contiguous  to  have  contiguous  elements.  See  Figure  6-4  for  example  of  contiguous  elements  and 
panels.  The  program  uses  an  automatic  Abutment  Search  procedure  (8.4)  to  establish  the  panel 
abutments  and  element  neighbors.  This  procedure  will  find  all  contiguous  abutments  in  the 
configuration,  relieving  the  user  of  the  burden  of  specifying  coimecting  panel  edges  and  elements  in 
all  but  a  few  extreme  cases. 

A  geometric  model  with  the  panels  cormected  together  at  their  edges  to  form  a  surface  mesh 
of  contiguous  elements  will  generally  give  the  most  accurate  results.  In  part,  this  is  due  to  the 
representation  of  the  edge  curves  of  the  panel  with  straight  line  segments.  Gaps  between  such  curved 
edges  may  only  be  avoided  when  the  edges  have  matching  elements.  Continuity  of  the  surface  mesh 
is  not  strictly  necessary,  and  in  some  cases  may  not  be  desirable.  Mesh  continuity  is  necessary, 
however,  at  the  intersections  of  vortex  wakes  and  bodies.  Examples  are  discussed  in  Ref.  4  on 
Modeling  Techniques  which  give  additional  insight  into  where  contiguous  and  noncontiguous 
elements  should  not  be  used. 


6.5  PANEL  AND  LATTICE  NOMENCLATURE 

A  configuration  to  be  analyzed  with  QUADPAN  is  represented  by  one  or  more  panels  of 
elements,  as  required  to  describe  the  surface  shape  and  represent  the  various  boundary  conditions  to 
be  used  (body),  wake,  etc.).  Each  panel  defined  is  logically  distinct,  i.e.,  its  geometric  definition  is 
independent  of  all  other  panels.  This  section  will  discuss  the  panel  in  its  “developed”  sense,  as 
defined  by  its  lattice  of  grid  points  after  geometry  generation  is  finished. 


6.5.1  Panel  And  Image  Panel  Identification 

Every  panel  has  a  user-assigned  panel  identification  number  and  a  panel  title  associated  with 
it  This  number  and  title  are  used  to  refer  to  that  panel  in  the  input  or  output  The  image  of  that  panel. 
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CONTIGUOUS  PANELS  CONTIGUOUS  ELEMENTS 

CONTIGUOUS  ELEMENTS 


NON-CONTIGUOUS  PANELS  NON-CONTIGUOUS  ELEMENTS 

CONTIGUOUS  ELEMENTS 


Figure  6-4  Contiguous  Panels  and  Elements 


if  it  possesses  an  image,  lies  across  the  X-Z  plane  of  symmetry  and  is  referred  to  using  the  same  title 
and  the  negative  of  the  identification  number.  This  user  defined  ID  number  allows  an  input 
specification  referring  to  a  given  panel  (to  connect  panel  edges,  for  example)  to  remain  independent  of 
the  number  and  order  of  the  input  panel  definitions. 


6.5.2  Panel  Structure 

The  program  treats  each  panel  as  a  rectangular  lattice  with  four  distinct  sides  (or  edges) 
regardless  of  the  actual  shape..  The  “rectangular”  array  of  points,  with  a  constant  number  of  points  in 
each  row  and  each  column,  defines  a  rectangular  grid  of  quadrilateral  elements  that  constitute  the 
panel.  Although  one  panel  edge  or  two  non-adjoining  edges  may  be  of  zero  length,  the  degenerate 
edge(s)  are  still  defined  in  the  same  manner  as  any  other  edge. 


6.5.3  Panel  Lattice 

The  “rectangular”  panel  lattice  is  defined  by  a  row  and  column  array  of  comer  points.  This  is 
illustrated  in  Figure  6-5.  Two  or  more  columns  of  points,  called  SECTIONS  (from  cross  section),  are 
required  to  define  a  lattice,  with  each  section  being  a  line  on  the  panel  surface  defined  by  two  or  more 
points  (i.e.,  there  must  be  at  least  two  rows  of  points).  The  rows  and  columns  of  the  lattice  define  two 
indicia]  directions  within  the  panel,  the  K  direction  corresponding  to  the  columns,  and  the  J  direction 
corresponding  to  the  rows. 

In  order  that  a  proper  lattice  exists,  three  conditions  must  be  met: 

1 .  The  sections  must  not  cross  one  another. 

2.  The  points  defining  each  section  must  be  entered  in  a  consistent  direction. 

3.  Every  section  within  a  “developed”  panel  lattice  must  consist  of  an  equal  number  of  points. 


6.5.4  Panel  Edges  And  Comer  Points 

The  panel’s  four  edges  are  referred  to  as  edge  1  through  edge  4  and  are  determined  by  tlK 
order  in  which  the  panel  infoimation  is  entered.  Edge  1  is  always  the  first  section  defined  within  a 
panel,  while  edge  3  is  always  the  last  section.  Edge  4  is  the  line  formed  by  the  first  points  of  each 
section,  and  edge  2  is  the  line  formed  by  the  last  points  of  each  section.  Panel  comer  points  are 
defined  such  that  comer  points  1  and  2  lie  at  the  ends  of  the  first  section,  and  comer  points  4  and  3  lie 
at  the  ends  of  the  last  section  (see  Figure  6-6). 

The  points  that  form  the  panel  lattice  are  numbered  sequentially  in  column  order,  from  the 
first  point  in  the  first  column  of  the  first  panel  defined,  to  the  last  point  in  the  last  column  of  the  last 
panel  (see  Figure  6-5).  The  user  does  not  have  to  deal  directly  with  lattice  points,  however,  except  in 
the  context  of  the  comer  points  associated  with  elements. 
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SECTION  3 
(POINTS  11-15) 


Figure  6-5  Panel  Layout  with  Section  and  Point  Numbering 
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Figure  6-6  Panel  and  Element  Edge  Numbering 


6.5.5  Panel  Element  Array 


The  panel’s  rectangular  lattice  of  points  form  the  comer  points  of  a  rectangular  array  of 
quadrilateral  ELEMENTS.  Elements  take  the  same  side  and  comer  point  conventions  as  their  parent 
panel  (see  Figure  6-6).  The  two  indicial  directions,  K  and  J,  are  local  to  the  panel  and  serve  to  locate 
an  element  within  the  regular  row  and  column  stmcture  of  the  panel  lattice.  The  order  in  which  the 
section  points  are  input  defines  the  K  indicial  direction,  and  the  order  in  which  the  sections  are  entered 
defines  the  J  indicial  direction.  In  this  indicial  notation  edge  1  is  the  locus  of  J=l,  edge  2  is  the  locus 
of  K=kmax,  edge  3  is  the  locus  of  J=jmax,  and  edge  4  is  the  locus  of  K=l.  In  addition  to  the  local  K,J 
indexing  within  the  panel,  QUADPAN  numbers  the  elements  sequentially  from  the  first  element  in  the 
first  panel  entered,  to  the  last  element  in  the  last  panel.  Sequential  element  numbering,  like  point 
numbering,  always  proceeds  in  the  K  direction  starting  from  J=1  (edge  1)  to  J=jmax  (edge  3.  See 
Figure  6-7. 


6.5.6  “Positive  and  Negative”  Panel  Surfaces 

The  panel’s  “positive”  surface  is  determined  by  the  order  of  point  and  section  input  in  the 
same  way  as  the  panel’s  edges  and  the  K  and  J  directions.  The  convention  adopted  in  QUADPAN  is 
that  the  “positive”  surface  is  given  by  the  cross  product  of  a  vector  in  die  “K  direction”  with  a  vector 
in  the  “J  direction.”  This  is  illustrated  in  Figure  6-7.  This  may  be  alternatively  stated  as  the  direction 
given  by  the  right-hand  mle  as  the  edges  of  the  panel  are  taken  in  cyclic  numerical  (12341234...) 
order. 


The  exterior  surface  of  a  panel  is  the  side  of  the  panel  that  the  program  treats  as  wetted  by  the 
flow.  This  will  be  the  direction  of  the  outward  normal  vectors  from  the  elements.  The  program  can 
use  either  the  panel  “positive”  or  “negative”  surface  as  the  exterior,  depending  on  the  setting  of  the 
WET  flag.  If  the  panel  “positive”  surface  (as  defined  above)  is  to  be  the  exterior  surface,  the  WET 
flag  should  be  set  to  +1.  If  the  panel  “negative”  surface  is  to  be  the  exterior  surface,  the  WET  flag 
should  be  set  to  -1.  Note  that  the  action  of  the  WET  flag  is  to  reverse  the  direction  of  the  outward 
normal  vector  without  reordering  the  input  points.  This  is  particularly  handy  in  the  event  of  a  mistake 
in  the  order  of  a  panel  definition. 


6.6  LIMITATIONS  AND  RULES  ON  PANELS 

As  discussed  above,  each  panel  is  regarded  by  the  program  as  topologically  rectangular, 
regardless  of  the  actual  geometrical  details.  The  lattice  of  points,  with  a  constant  number  of  points  in 
each  row  and  each  column,  defines  a  rectangular  grid  of  quadrilateral  elements  that  make  up  the 
panel.  The  panel  lattice  defines  four  panel  edges.  The  program  places  no  major  restrictions  on  what 
orientations  the  panel”  four  edges  may  take,  even  in  panel  abutments. 

The  following  rules  and  limitations  apply  to  panels: 

1 .  One  edge  or  two  nonadjoining  edges  may  be  reduced  to  zero  length. 
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Triangular  elements  are  only  permitted  at  panel  edges.  The  number  of  elements  in  each  row  or 
column  within  the  lattice  must  be  constant.  In  addition,  triangular  elements  are  restricted  to  occur 
only  at  degenerate  (zero  length)  panel  edges.  See  Figure  6-8. 


Figure  6-7  Panel  Layout  with  Element  Numbering 


NOT  PERMITTED 


3.  The  mesh  of  elements  should  be  as  orthogonal  as  possible.  This  does  not  mean  that  orthogonality 
of  the  panel  mesh  is  required,  but  highly  distorted  meshes  should  be  redefined.  In  addition,  the 
edges  of  the  panel  should  not  include  large  “kink”  angles  that  distort  the  element  lattice  structure. 
An  edge  kink  angle  of  90  degrees  or  more  should  be  avoided  by  subdividing  the  panel  into 
several  panels.  See  Figure  6-8. 

4.  Panels  must  themselves  be  simply  connected,  that  is,  they  may  not  contain  any  holes.  The 
elements  within  a  panel  are  assumed  to  form  an  unbroken  mesh. 

5.  Panels  may  only  (only!!)  abut  (touch)  one  another  at  their  edges. 

Any  number  of  panels  may  abut  a  panel  edge,  however,  no  more  than  four  elements  may  abut 
(touch)  one  another  along  a  common  element  edge.  See  Figure  6-8. 


6.7  OVERVIEW  OF  OPTIONS  FOR  GEOMETRY  GENERATION 

The  discussion  of  panels  thus  far  has  dealt  with  the  “developed”  panel  lattice,  defined  by 
several  sections  (columns)  of  points,  with  each  section  consisting  of  the  same  number  of  points 
(rows).  The  points  defining  this  lattice  may  be  input  directly,  or  the  user  may  take  advantage  of 
several  options  that  are  available  to  simplify  geometry  generation  or  modification.  These  include: 

1.  Panel  transformation  -  This  allows  the  user  to  translate,  rotate,  and  scale  the  entire  array  of 
panel  comer  points.  The  panel  may  be  described  in  its  own  coordinate  system  and  then 
transformed  into  the  global  system. 

2.  Options  to  define,  repeat,  or  transform  sections  -  These  simplify  the  panel  definition  process 
by  allowing  similar  sections  to  be  defined  once  in  their  own  coordinate  system  and  then 
transformed  in  to  the  panel  system. 

3.  Panel  respacing  -  This  option  permits  the  element  density  or  distribution  on  the  panel  to  be 
altered.  This  can  be  done  on  a  panel  basis,  or  individually  for  each  section  of  points.  This  is  a 
very  powerful  capability  that  simplifies  the  geometry  definition  and  modification  process. 

This  capability  is  available  through  the  use  of  optional  KEYWORDS  in  the  input  data  set.  If 
the  keywords  are  not  present  in  the  input  data  set,  they  are  simply  defaulted  out  and  nothing  is  scaled, 
transformed,  respaced,  etc.  See  Chap.  7  for  more  information  on  keywords. 


6.8  PANEL  TRANSFORMATIONS 

The  user  may  specify  a  transformation  to  be  applied  to  die  panel  so  that  it  may  be  described 
in  its  own  coordinate  system,  the  panel  coordinate  system  (PCS).  This  transformation  is  defined  by 
three  points  whose  location  is  given  in  both  the  panel  coordinate  system  and  the  global  coordinate 
system  to  define  the  transformation  (see  Figure  6-9).  Combined  translation,  isomorphic  scaling  and 
rotation  can  be  specified  with  these  three  points.  This  option  is  available  through  the  use  of  the 
keyword  LOCATE  (0). 
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The  locater  points  may  be  any  three  points  which  are  not  colinear,  i.e.,  the  three  points  form  a 
triangle.  These  points  need  not  lie  on  the  panel,  or  correspond  to  any  of  the  lattice  points.  The  action 
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Figure  6-9  Action  of  Locater  Points 
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of  the  locater  points  is  most  easily  understood  if  the  triangle  of  locater  points  in  panel  coordinates  is 
similar  to  the  triangle  of  locater  points  in  global  coordinates,  but  this  is  not  a  requirement.  The  panel 
size  is  scaled  (without  changing  its  shape)  by  the  distance  between  the  first  and  second  locater  points 
in  the  two  coordinate  systems.  The  panel  is  placed  so  that  the  first  and  second  panel  locater  points 
coincide  with  the  first  and  second  global  locater  points,  and  the  panel  triangle  is  coplanar  with  the 
global  triangle. 


6.9  DEFINING  PANELS  WITH  SECTIONS 

As  discussed  previously  in  this  chapter,  each  panel  is  defined  by  two  or  more  SECTIONS 
(columns)  of  points.  These  sections  can  often  be  treated  as  cross  sections,  such  as  on  a  wing,  where 
the  sections  could  correspond  to  the  airfoil  coordinate  definitions,  or  the  cross  sections  defining  a 
fuselage. 

In  addition  to  the  basic  coordinates  of  the  section  points,  the  user  may  specify  transformation 
data  to  translate,  scale,  and  rotate  the  input  points.  This  permits  the  sections  to  be  defined  in  their  own 
coordinate  systems,  the  Section  Coordinate  System  (SCS),  and  transformed  into  the  panel  system. 
Respacing  data  may  also  be  specified  to  alter  the  distribution  of  lattice  points,  both  along  the  section 
curves  defined  by  the  input  points  and  the  J  direction  between  sections.  The  use  of  the  transformation 
or  respacing  capability  is  entirely  optional  and,  if  not  used,  the  input  points  define  a  column  of  lattice 
points  in  the  K  direction  of  the  panel. 

There  are  two  coordinate  systems  available  for  defining  sections  -  a  rectangular  system  and  a 
cylindrical  system.  Both  rectangular  and  cylindrical  sections  may  be  mixed  within  a  panel  definition. 


6.9.1  Rectangular  Sections 

The  most  commonly  used  method  of  entering  panel  data  is  with  rectangular  sections.  A 
rectangular  section  is  defined  with  input  points  specified  in  an  orthogonal  X,  Y,  Z  coordinate  system. 
See  7.8  for  further  information  on  rectangular  sections. 


6.9.2  Cylindrical  Sections 

A  section  may  be  defined  using  cylindrical  coordinates  (polar  angle,  radius,  and  polar  axis 
coordinate).  Either  the  X,  Y,  or  axis  may  be  used  as  the  pair  in  the  cylindrical  section.  Cylindrical 
sections  have  special  properties  if  respacing  is  specified,  as  will  be  discussed  in  0.  See  7.8  for  further 
information  on  cylindrical  sections. 


6.9.3  Repeated  Sections 

The  previous  section  defined  may  be  reused.  This  repeated  section  may  be  translated,  scaled, 
and  rotated  to  change  the  coordinates  of  the  points. 
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6.9.4  Section  Transformations 

Each  section  definition  consists  of  two  parts,  a  geometric  part  made  up  of  a  list  of  points  and 
an  optional  “thread  point,”  specified  by  the  THREAD  keyword,  and  a  transformation  part  in  which 
translation,  scaling,  and  rotation  may  be  applied  to  the  section  points.  The  thread  point  may  be 
thought  of  as  a  way  to  reorigin  the  section  coordinates  to  the  location  of  the  thread  point.  The 
transformations  that  may  be  applied  to  the  section  points  are  illustrated  in  Figure  6-10  and  consist  of: 

Translation  of  the  section,  using  the  AT  keyword,  is  done  by  moving  the  thread  point  to  a 
specified  point  in  the  panel  coordinate  system  (PCS). 

Rotation  of  the  section,  using  the  TWIST  keyword,  is  done  about  an  axis  that  passes  through 
the  thread  point. 

Scaling  of  the  section,  using  the  SCALE  keyword,  is  done  about  the  thread  point. 

No  transformation  is  done  to  the  section  points  if  the  transformation  information  is  omitted  or 
defaulted.  The  thread  point  is  treated  as  part  of  the  section  definition  and  is  unchanged  if  the  section 
is  repeated.  The  thread  point  may  also  be  omitted,  in  which  case  it  defaults  to  the  origin  (0.,0.,0.)  of 
the  section  coordinates. 
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6.10  PANEL  RESPACING 


The  panel  respacing  options  are  powerful  tools  for  geometiy  generation.  They  allow  the 
number  and  distribution  of  the  lattice  lines  (and  elements)  within  a  panel  to  be  changed  without 
changing  any  of  the  points  defining  the  panel  in  the  input  data  set.  This  redistribution  of  the  panel 
lattice  can  be  specified  independently  in  either  or  both  of  the  J  and  K  panel  directions. 

The  capability  to  respace  a  sparse  set  of  input  points  to  form  a  denser  lattice  can  reduce  the 
amount  of  input  data  required  to  describe  a  configuration.  Only  the  number  of  points  required  to 
adequately  describe  the  geometric  shape  need  be  input.  The  benefits  of  panel  respacing  are  illustrated 
in  Figure  6-1,  where  the  input  points  and  sections  have  been  respaced  into  a  dense,  regular  lattice. 
The  example  data  sets  in  7.11.2  and  7.1  IJ  also  demonstrate  the  respacing  capability.  The  first 
example  is  a  simple  rectangular  wing  which  is  described  only  by  a  root  and  tip  airfoil  sections.  The 
intervening  mesh  is  created  by  respacing  between  the  sections.  The  second  example  is  a  fuselage  type 
configuration,  described  using  cylindrical  cross  sections,  and  respaced  to  create  the  panel  lattice. 


6.10.1  Representation  Of  Curves  With  Cubic  Splines 

The  basis  of  the  panel  respacing  options  is  the  representation  of  the  shape  of  a  space  curve 
defined  by  a  set  of  input  points.  This  is  necessary  because  an  additional  (or  different)  set  of  points 
must  be  found  (respaced)  that  lie  on  that  curve. 

The  method  used  in  QUADPAN  to  represent  space  curves  is  a  locally  fitted  cubic  spline 
which  is  parameterized  by  arc  length  along  the  curve.  This  method  differs  from  the  classical  cubic 
spline  by  using  only  a  few  points  in  the  vicinity  of  the  desired  point  to  fit  the  curve,  and  virtually 
eliminates  the  oscillatory  behavior  normally  associated  with  cubic  splines.  The  coordinates  of  the 
input  curve  are  parameterized  by  arc  length  to  make  the  representation  of  space  curves  independent  of 
any  specific  axis. 

Any  number  of  points  may  be  used  to  define  the  input  curve,  as  required  to  characterize  its 
shape.  The  more  points  used  to  describe  a  complex  shsqje,  the  more  accurately  it  will  be  represented. 
If  only  one  point  is  used  the  spline  simply  degenerates  to  that  point.  If  two  points  are  used  the  spline 
degenerates  to  a  straight  line  passing  through  the  points.  If  three  or  more  points  are  used  the  spline 
will  produce  a  curved  line  passing  through  the  points. 


6.10.1.1  Break  Points - 

The  splines  used  to  represent  space  curves  have  the  property  that  their  derivatives  are 
continuous  everywhere  on  the  curve.  In  some  situations  a  discontinuous  curve  may  be  required.  This 
can  be  done  by  designating  a  point  (for  respacing  the  K  direction)  or  a  section  (for  respacing  in  the  J 
direction)  to  be  a  slope  break.  Matching  of  slopes  will  not  be  done  across  a  slope  break.  See  Figure 
6-1 1.  Note  that  specifying  a  break  does  not  force  a  lattice  point  to  be  located  at  the  break  -  this  can  be 
done  with  spacing  intervals. 

See  7.8  for  more  details  on  slope  breaks  (KBREAK  or  JBREAK)  specified  for  the  input 
points,  or  for  the  input  section. 
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Figure  6-11  Effects  of  Break  Points  On  Spline  Curve 
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6.10.2  Respacing  Along  Spline  Curve 

After  the  input  points  have  been  represented  with  cubic  splines,  new  points  may  be  obtained 
along  that  curve  by  interpolation.  The  respacing  of  points  along  the  curve  is  controlled  by  the  number 
of  elements  (intervals  between  lattice  points)  and  the  distribution,  or  spacing,  of  elements  that  have 
been  specified  to  lie  on  the  respaced  curve.  Since  the  curves  are  parameterized  by  arc  length  along 
the  curve,  fi’om  the  first  to  last  point  defined,  the  number  of  elements  and  spacing  distribution  are  also 
applied  to  the  arc  length  along  the  curve  in  a  direction  from  first  to  last  point. 

See  7.7  and  7.7  for  more  information  on  the  number  of  elements  (NJ  or  NK)  that  have  been 
specified  to  lie  on  the  respaced  curve. 


6.10.2.1  Spacing  Intervals  - 


The  respacing  of  points  along  the  curve  is  done  within  “spacing  intervals.”  A  spacing 
interval  may  be  the  entire  curve  between  the  first  and  last  input  points,  as  discussed  above  or  may  be 
any  subset  of  the  input  curve.  The  same  basic  respacing  operations  are  done  in  either  case.  Figure  6- 
12  illustrates  a  curve  with  two  spacing  intervals  specified. 
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INPUT  CURVE 


RESPACED  CURVE 
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The  advantage  of  the  spacing  interval  is  that  the  ends  of  the  interval  are  guaranteed  to  be 
lattice  points.  This  allows  a  portion  of  a  curve  to  be  spaced  in  such  a  way  that  it  matches  a  curve  on 
another  panel,  to  guarantee  contiguous  elements  at  the  panel  edges.  Spacing  intervals  can  be  defined 
between  input  points  in  a  section  (K  direction),  or  between  sections  (J  direction).  Each  point  (or 
section)  except  the  last  may  define  the  beginning  of  a  spacing  interval.  Slope  continuity  of  the  curve 
is  maintained  across  spacing  intervals  so  long  as  slope  breaks  are  not  used. 

6.10.2.2  Spacing  Distributions  - 

The  distribution  of  intervals  along  the  respaced  curve  is  controlled  by  the  desired  spacing 
distribution.  Three  basic  types  of  spacing  distributions  are  used,  as  illustrated  in  Figure  6-13  and  listed 
below: 


Equal  spacing  -  The  input  curve  is  divided  into  equal  arc  length  intervals. 

Cosine  spacing  -  The  input  curve  is  divided  using  a  spacing  distribution  that  concentrates 
points  at  the  ends  of  the  input  curve,  as  given  by  a  cosine  law. 

Sine  spacing  -  The  input  curve  is  divided  using  a  spacing  distribution  that  concentrates  points 
a  one  end  of  the  input  curve,  as  given  by  a  sine  law.  Either  end  of  the  input  curve  may  be 
selected  as  the  concentrated  end. 

In  addition  to  the  spacing  distributions  listed  above,  a  “blended”  spacing  may  be  specified 
that  combines  the  basic  spacing  distributions  using  linear  blending.  This  is  illustrated  in  Figure  6-14 
where  a  ten  interval  spacing  has  been  generated  for  the  possible  spacing  distributions  (SPACE=-3.0  to 
3.0).  A  blended  spacing  distribution  is  given  a  line  parallel  to  the  spacing  distribution  lines  (i.e.,  1.2 
spacing  is  on  a  line  1/5  of  the  way  from  the  SPACE=1 .0  line  to  the  SPACE=2.0  line). 

See  7.7  and  7.8  for  more  information  on  the  spacing  distribution  of  elements  (JSPACE  or 
KSPACE)  that  has  been  specified  to  lie  on  the  respaced  curve. 

6.10.3  Panel  Respacing  Process 

Panel  respacing  may  be  specified  independently  in  either  or  both  of  the  panel’s  J  and  K  directions. 
The  following  sections  detail  the  operations  done  on  the  panel  lattice  for  each  of  these  cases. 


122 


EQUAL 

COSINE 

SPACE  =  2 

SPACE* -2 

1 

y  i\  l\  1 

Ak  1  \  \  > 

4  1  \1  '  ' 

/P'.!  \  1  \  1 

/  \  i\  \  1 

r  1  \K\\ 

1 

i  l\/y\ 

!  V  A  1  .''N 
‘  A  /  \  \ 

/  /  I/  i'  1  ij 

\i//y  1 

-  SINE 


Figure  6-13  Basic  Spacing  Distributions 
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Figure  6-14  Blended  Spacing  Distributions 
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6.10.3.1  Respacing  in  The  K  Direction 


The  panel  lattice  respacing  in  the  K  direction  is  done  section  by  section,  corresponding  to 
columns  in  the  panel  lattice.  The  respacing  information  in  the  K  direction  may  be  specified  for  the 
panel  as  a  whole  (all  the  sections)  or  specified  individually  for  each  section. 

The  points  Hefining  each  section  are  fitted  with  a  spline  curve  that  passes  through  the  input 
points.  The  number  of  elements  (NK)  and  the  element  spacing  distribution  (KSPACE)  are  used  to 
interpolate  new  points  on  the  spline  curves.  If  input  points  in  the  section  are  designated  as  spacing 
intervals,  the  sum  of  the  number  of  elements  specified  (for  all  the  spacing  intervals)  within  each 
section  must  be  the  same  for  all  the  sections  in  the  panel. 

.  Figxire  6-15  illustrates  these  operations  on  a  panel  defined  with  three  sections.  The  first 
section  is  a  curve  defined  with  four  points,  the  second  section  is  a  line  defined  by  two  points,  and  the 
third  section  is  a  curve  defined  by  six  points.  Note  that  a  lattice  could  not  be  constructed  from  these 
sections  without  respacing,  owing  to  different  numbers  of  points,  within  the  sections.  For  this 
example  respacing  is  specified  over  the  whole  K  extent  of  the  panel  with  four  elements  (five  points)  in 
a  cosine  t3^e  distribution.  Once  the  respsiced  points  have  been  generated  the  lattice  is  well  defined, 
with  the  required  number  and  distribution  of  elements. 


6.10.3.2  Respacing  In  The  J  Direction  - 

The  panel  lattice  respacing  in  the  J  direction  is  done  using  spline  curves  connecting  across  the 
sections,  corresponding  to  the  rows  in  the  panel  lattice.  The  respacing  information  in  the  J  direction 
may  be  specified  only  for  the  panel  as  a  whole  (across  all  the  rows).  This  differs  fiom  panel  respacing 
in  the  K  direction,  where  each  section  (column)  may  be  individually  respaced. 

A  spline  curve  is  fitted  across  the  points  of  equal  K  index  fi'om  each  section,  i.e.,  all  the  first 
points  in  the  sections,  all  the  second  points  in  the  sections,  etc..  The  number  of  elements  (NJ)  and  the 
element  spacing  distribution  (JSPACE)  are  used  to  interpolate  new  points  on  the  spline  curves. 

Figure  6-16  illustrates  these  operations  on  a  panel  defined  with  three  sections.  Note  that  each 
section  consists  of  the  same  number  of  points.  This  is  a  requirement  for  respacing  in  the  J  direction. 
For  this  example  respacing  is  specified  over  the  whole  J  extent  of  the  panel  with  four  elements  (five 
points)  in  a  cosine  type  distribution.  Since  the  interior  section  was  not  designated  a  spacing  interval, 
there  is  no  longer  a  straight  line  column  of  points  in  the  panel. 


6.10.3.3  Respacing  In  Both  Directions  - 

If  respacing  in  both  directions  is  specified  the  operations  used  to  respace  the  lattice  are  done 
by  respacing  in  the  K  direction  first,  followed  by  respacing  in  the  J  direction.  The  figures  for  the 
previous  two  subsections,  taken  in  sequence,  illustrate  this. 

This  method  of  respacing  the  panel  lattice  leads  to  a  difference  in  the  capability  to  control  the 
panel  lattice  for  the  two  respacing  directions.  Respacing  information  in  the  J  direction  can  only  be 
specified  for  all  the  rows  of  points,  not  individually  for  each  row.  Panel  respacing  in  the  K  direction. 
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GENERATE  CUBIC  SPLINE  USE  RESPACING  DATA  INK.  K  SPACEI 

CURVES  THROUGH  SECTION  POINTS  (K  DIRECTION)  TO  FIND  NEW  POINTS  ON  SECTION  CURVES 


Figure  6-15  Panel  Respacing  in  the  K  Direction 
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on  the  other  hand,  can  be  individually  specified  for  each  column.  This  loss  in  capability  is  due  to  the  input 
of  the  panel  lattice  information  in  columns  (sections)  rather  than  rows. 

6.10.4  Cylindrical  Sections  And  Panel  Respacing 


As  discussed  above,  a  cylindrical  coordinate  system  may  be  used  as  an  alternative  to  the 
rectangular  coordinate  system  for  defining  section  points.  These  cylindrical  sections  posses  special 
properties  if  respacing  is  specified  in  the  K  (section)  direction. 

When  respacing  is  specified  for  a  cylindrical  section,  the  points  defining  the  section  are  first 
interpolated  in  the  cylindrical  coordinate  space  by  arc  length  to  generate  an  enriched  cylindrical 
section.  This  enriched  section  definition  is  converted  to  rectangular  coordinates  and  is  then  treated  as 
if  it  were  a  rectangular  section  for  further  respacing  operations.  The  enrichment  of  the  section 
definition  before  the  final  respacing  in  rectangular  coordinates  places  points  near  the  ends  of  the  curve 
to  ensure  the  correct  slope  behavior  there.  This  can  be  a  problem  with  standard  rectangular  sections, 
requiring  extra  points  to  be  input. 


The  real  benefit  of  the  first  interpolation  in  polar  coordinates  is  that  only  two  points  need  he 
input  to  specify  a  circular  arc  section.  If  a  section  curve  is  defined  with  constant  radius  values,  then 
any  radius  value  interpolated  between  the  ends  of  the  curve  will  also  be  constant.  In  addition,  near¬ 
circular  sections  can  be  defined  using  fewer  points  than  would  be  required  for  purely  rectangular 
definitions.  The  difference  between  rectangular  and  cylindrical  sections  is  illustrated  in  Figure  6-17 
for  sections  defined  with  two  and  three  points. 
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Figure  6-16  Panel  Respacing  in  the  J  Direction 
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Figure  6-17  Comparison  of  Rectangular  and  Cylindrical  Sections 


7.  QUADPAN  DATASET 


7.1  INTRODUCTION 


This  chapter  describes  the  input  dataset  for  a  QUADPAN  run.  The  basic  dataset  structure  is 
introduced,  followed  by  the  ground  rules,  for  the  data  format.  The  chapter  provides  a  detailed  definition  of 
the  input  dataset  and  describes  each  parameter  in  each  record. 

Several  examples  are  provided  at  the  end  of  the  chapter  in  order  of  increasing  complexity.  These 
illustrate  both  the  syntax  of  the  dataset  and  the  relationship  between  the  geometry  of  a  configuration  and 
the  corresponding  input  dataset.  The  reader  is  encouraged  to  refer  to  these  examples  frequently. 


7.2  INPUT  DATASET  STRUCTURE 

An  input  dataset  for  QUADPAN  is  divided  into  four  basic  parts,  separated  by  keywords  (to  be 
discussed  below).  The  parts  are  listed  here  in  the  order  they  are  to  appear  in  the  dataset. 

•  Global  data  -  This  part  consists  of  information  required  to  run  the  case,  the  reference  quantities,  and 
flow  conditions  desired. 

•  Panel  data  —  The  geometric  definition  of  the  configuration  is  input  by  panels  in  this  part.  The  panel 
definitions  consist  of  panel  information  and  several  section  definitions. 

Sections  are  used  to  actually  define  the  panel  geometry.  For  this  reason  section  data  is  treated  as  a 
separate  part  of  the  input,  although  this  is  only  in  the  context  of  defining  the  panel. 

•  Propeller  data  (optional)  -  The  parameters  defining  the  propeller  slipstream  model  are  specified  in 
diis  part. 

•  Survey  data  (optional)  -  This  part  specifies  additional  locations  at  which  the  program  is  to  calculate 
flow  field  quantities. 

The  structure  of  the  input  dataset  is  presented  in  Figures  7-1  and  7-2.  Figure  7-1  is  a  flow  chart 
which  shows  the  order  and  possible  combinations  of  the  basic  blocks  of  data  in  the  input  dataset  Each 
block  on  the  flow  chart  consists  of  one  or  more  records.  Figure  7-2  shows  the  structure  of  the  dataset  and 
the  variables  which  comprise  each  record.  The  record  identification  number  in  each  block  in  the  flow  chart 
(e.g.,  P4)  refers  to  one  or  more  records  in  Figure  7-2  (e.g.,  P4,  P4a,  and  P4b).  These  identification  numbers 
are  used  throughout  the  remainder  of  the  chapter,  including  the  examples  at  the  end  of  the  chapter. 

Many  of  die  records  in  the  dataset  are  optional  and,  if  not  required,  may  be  left  out  of  the  input 
data.  This  is  done  by  omitting  the  keyword  for  the  option  and  any  records  associated  with  it.  The  parts  of 
the  dataset  and  their  input  records  are  discussed  later  in  this  chapter.  Not  shown  in  this  Figures  7-1  and  7-2 
is  the  new  integrated  capability  for  ASTROS  for  creating  control  surfaces.  A  protocol  of  AESURF  unique 
to  QUADPAN  was  integrated  into  the  QUADPAN  dataset.  This  protocol  for  user  input  will  be  described 
in  the  following  appropriate  subsections. 
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Record  Global  Data 


G1 

Case  Id 

G2 

Run  Id 

G3 

Mach 

Run 

G4 

Sref 

Cbar 

G5  * 

Alpha 

Beta 

Record 

Panel 

Data 

Print 

Wspan 

Otnegax 


Dump 

Xbar 

Omegay 


Abstol 

Ybar 

OroegaZ 


Reltol 

Zbar 

Vinf 


PI 

P2 

P3 

P4 

P4a 

P4b 

P5 

P5a 

P5b 

P6 

P6a 

P7 

P7a 

P7b 

P7c 

P8 

P8a 

P9 

P9a 


♦  PANEL 

PIdnum  Ptitle 

Type  Wet  Force  Image 

PERMEABILITY 
Vnorm 

+  Vnorm  ( image) 


DEFLECT 

Xtail 

Ytail 

Ztail 

Xhead 

Yhead 

Zhead 

E>eflect 

+ 

Xtail 

ABUT 

Ytail 

Ztail 

Xhead 

Yhead 

Zhead 

Deflect  (image) 

* 

EdgeN 

LOCATE 

Xpl 

Xp2 

Panel 

Tpl  Zpl 

Yp2  Zp2 

Edge* 

xgi 

xg2 

Ygi 

Yg2 

zgl 

Zg2 

Xp3 

JSPACE 

YP3 

Zp3 

xg3 

Yg3 

Zg3 

Nj 

KSPACE 

N}c 

Jspace 

Kspace 

Record 


Section  Data 


SI 

-* 

SECTION 

S2 

RECTANGULAR 

S2a 

* 

X 

Y 

S3 

THREAD 

S3a 

XO 

YO 

S4 

CYLINDRICAL 

S5 

XAXIS 

S5a 

* 

Theta 

R 

S6 

THREAD 

S6a 

ThetaO 

RO 

S7 

YAXIS 

S7a 

« 

Theta 

R 

S8 

THREAD 

S8a 

ThetaO 

RO 

S9 

ZAXIS 

S9a 

• 

Theta 

R 

SIO 

THREAD 

SlOa 

ThetaO 

RO 

Sll 

AT 

Slla 

Xthread 

Ythread 

S12 

* 

SCALE 

S12a 

Xscale 

Yscale 

S13 

* 

TWIST 

S13a 

Xax  is 

Yaxis 

Z 

Kbreak 

Nk 

Kspace 

ZO 

X 

Kbreak 

Nk 

Kspace 

XO 

Y 

Kbreak 

Nk 

Kspace 

YO 

Z 

Kbreak 

Nk 

Kspace 

ZO 

Zthread 

Jbreak 

Nj 

Jspace 

Zscale 

Zax  is 

Twist 

Record  Propeller  Data 


R1 

*  PROPELLER 

R2 

Xprop 

Yprop 

R3 

Rprop 

Dir 

R4 

Cthrust 

Ctorque 

Zprop  Alphaprop  Betaprop 

Propimage 

Ccrossforce 


Record 


Survey  Data 


VI 

V2 

V2a 

V3 

V4 

V5 


SURVEY 

POINT 

Xsurv  Ysurv  Zsurv 

PANEL 

CONTROL 

(panel  and  section  records  P2-P9,  S1-S13) 
LATTICE 

(panel  and  section  records  P2-P9,  S1-S13) 


All  capital  letters  indicate  a  KEYWORD  which  is  to  be  literally  entered 
Small  letters  indicate  a  parameter  whose  value  is  to  be  entered 
♦  indicates  that  the  card  (or  KEYWORD  and  cards  it  heads)  may  be  repeated 
+  indicates  that  the  item  refers  to  the  image  panel  and  is  only  required 
if  the  parameter  must  be  non-symmetr ic 


Figure  7-2  Input  Dataset  Schematic 
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73  GENERAL  RULES  FOR  INPUT  DATA 


The  input  to  QUADPAN  is  record  oriented,  one  record  per  line  of  input  with  no  extensions 
allowed  onto  additional  cards.  The  program  reads  only  the  first  72  coluntns  of  any  input  line,  allowing 
datasets  to  be  line  numbered  (for  IBM  systems)  or  otherwise  identified  as  the  user  desires.  There  are  three 
types  of  input  lines  recognized  by  the  program;  comments,  keywords,  and  numeric  data. 


7.3.1  Comments 


Any  line  beginning  with  an  asterisk  is  considered  a  comment  and  is  ignored  by  QUADPAN. 
An  input  record  is  considered  to  be  any  noncomment  line.  Comments  may  also  be  put  on  noncomment 
records  by  preceding  the  comment  text  with  an  asterisk.  The  input  record  will  be  processed  from  left  to 
right  until  the  comment  is  encountered.  Input  fields  skipped  due  to  the  presence  of  a  comment  on  the 
record  are  assumed  to  be  blank. 

Examples: 

*  THIS  IS  A  COMMENT  LINE 

♦  234567890  1234567890123456789012345678901234567890RULERLINE 

102.733  33.845  1201 .993  *REST  OF  LINE  IS  A  COMMENT 


7.3.2  Keywords 

Keywords  are  used  in  the  input  for  several  functions.  They  serve  to  oi^anize  the  input.  They  allow 
the  user  to  specify  options  that  may  safely  be  defaulted  when  not  required,  thus  reducing  the  complexity  of 
the  input  dataset.  Keywords  are  also  used  to  terminate  lists  of  data  (such  as  a  list  of  X,  Y,  Z  points)  so  that 
the  user  need  not  redimdantly  specify  the  length  of  the  list. 

Keywords  must  be  in  capital  letters,  starting  in  the  first  column  of  the  record.  Only  the  first  four 
letters  of  each  keyword  are  significant.  Some  keywords  also  require  additional  data  to  be  entered  (numeric 
or  keyword)  that  is  associated  with  that  option. 


7.3.3  Numeric  Data 

The  input  of  numeric  data  is  organized  into  fields  of  ten  columns  each,  in  much  the  same  manner 
as  the  Fortran  ‘F10.xx’  format.  The  value  of  a  parameter  may  be  placed  anywhere  in  its  assigned  field. 
Decimal  points  or  right  justification  are  optional  as  numbers  can  be  delimited  by  blanks.  It  is  recommended 
that  decimal  points  be  used  for  all  floating  point  number  inputs  for  clarity.  A  maximum  of  7  fields  may  be 
present  on  a  record.  Blank  fields  or  fields  not  read  due  to  a  conunent  on  the  record  are  assigned  default 
values  (the  default  value  of  any  parameter  is  zero,  unless  otherwise  specified). 

Examples: 

*  234567890  12345678901 234567890 1234567890(RULER  COMMENT) 

102.733  33  1201.993  -59.432 

-8  .67E-05  +125.669 
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7.4  ADDITIONAL  CONSIDERATIONS  FOR  INPUT  DATA 

As  mentioned  above,  open  ended  lists,  where  any  number  of  records  may  be  input,  are  delimited 
by  keywords,  or  the  end  of  file.  A  blank  line  in  the  dataset  will  be  interpreted  by  the  program  as  an  end  of 
file  in  most  situations. 

The  need  for  comments  in  datasets  cannot  be  overemphasized.  It  is  difficult  to  work  with  an  old 
dataset  diat  was  not  properly  documented.  An  additional  benefit  of  comments  is  that  they  may  be  used  to 
eliminate  alignment  errors  by  marking  the  begirming  of  each  field.  The  facility  for  comments  has  been 
provided. . .  use  it!  Corrunents  tyill  be  used  to  clarify  the  material  in  all  examples  in  this  chapter. 


7.5  SUMMARY  OF  KEYWORDS  RECOGNIZED  BY  QUADPAN 


The  keywords  recognized  by  die  program,  ordered  by  the  groups  in  which  they  ^pear,  are  listed 

below: 


Global  Data  Group 

AESURF 

Panel  Data  Group 

•  PANEL 

PERMEABILITY 

DEFLECT 

ABUT 

LOCATE 

JSPACE 

KSPACE 

Section  Data  Group 

SECTION 

RECTANGULAR 

CYLINDRICAL 

XAXIS 

YAXIS 

ZAXIS 

THREAD 

AT 

SCALE 

TWIST 

Propeller  Data  Group 

PROPELLER 

Survey  Data  Group 

SURVEY 

POINT 


Initiates  control  surface  definition 


Initiates  panel  definition 
Allows  specification  of  panel  normal  velocity 
Simulates  panel  deflection  about  an  axis 
Allows  user  to  specify  panel  abutment  data 
Specifies  panel  transformation  (translation,  rotation, 
scaling) 

Allows  respacing  in  J  direction 
Allows  respacing  in  K  direction 


Initiates  section  definition 

Precedes  new  section  in  rectangular  coordinates 

Precedes  new  section  in  cylindrical  coordinates 

Specifies  X-axis  for  polar  axis 

Specifies  Y-axis  for  polar  axis 

Specifies  Z-axis  for  polar  axis 

Allows  user  to  specify  section  thread  point 

Specifies  translation  of  section 

Specifies  section  scaling 

Specifies  section  rotation  about  an  axis 


Initiates  propeller  definition 


Initiates  survey  definition 
Precedes  definition  of  survey  points 
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PANEL 

CONTROL 

LATTICE 


Initiates  survey  panel  definition 

Specifies  panel  control  points  as  survey  points 

Specifies  panel  lattice  points  as  survey  points 


7.6  GLOBAL  DATA 


The  global  data  (records  G1-G5)  contains  information  to  identify  and  control  the  run,  the 
reference  quantities  to  be  used  to  normalize  the  forces  and  moments,  and  the  flow  conditions  to  be 
analyzed.  The  program  expects  diis  section  to  be  present  in  every  dataset  in  the  order  given  here. 

The  global  data  is  terminated  by  the  keyword  PANEL  of  the  first  panel  definition. 

No  keywords  are  used  in  the  global  data  group. 

Record  Gl:  Case  ID  (col.  1-72) 

The  first  noncomment  card  in  the  dataset.  To  be  used  for  an  identifying  description  of  the  configuration. 

This  title  is  associated  with  the  geometry  of  the  configuration  and  must  be  maintained  unchanged  for  all 
future  restarts  using  the  matrices  generated  on  the  initial  run.  The  title  will  appear  in  die  output  print,  the 
ouqiut  dump,  and  the  matrices  from  diis  run.  It  is  recommended  that  meaningful  information  be  used  to 
eliminate  ambiguity  on  what  configuradon  was  actually  run. 

Record  G2;  Run  ID  (col.  1-72) 

A  noncomment  card,  to  be  used  for  an  identifying  description  of  die  particular  run  (flow  condition  or 
boundary  conditions)  the  dataset  corresponds  to. 

The  run  identifier  is  an  additional  label  that  may  be  used  to  identify  a  run,  but  which  differs  from  the  title 
(record  Gl)  because  it  has  no  effect  on  restarts.  This  permits  the  title  to  be  permanently  associated  with  the 
configuration  geometry.  The  run  tide  will  appear  in  the  output  print  and  the  output  dump  from  this  run. 
Again,  it  is  recommended  that  meaningful  information  be  used  to  eliminate  ambiguity  on  what  flow 
condition  was  actually  run. 

Record  G3:  MACH,  RUN,  PRINT,  DUMP,  ABSTOL,  RELTOL 

This  record  specifies  the  Mach  number  to  be  used  for  the  run,  the  control  flags,  and  die  tolerance 
parameters  to  be  used  for  the  Automatic  Abutment  check. 

MACH  -  Mach  number  (col.  1-10) 

The  freestream  Mach  number  (MACH  <  1.0).  Since  the  matrices  generated  are  peculiar  to  a  given 
Mach  number  the  Mach  number  must  be  unchanged  if  the  program  is  restarted  using  matrices  from  a 
previous  run. 

RUN  -  Run  control  flag  (col.  1 1-20) 


RUN=  -1: 
RUN=  0: 

RUN=  1: 
RUN=  2: 
RUN=  3: 


Program  generates  geometiy  only. 

Program  generates  geometry  and  performs  abutment  checks,  wake  checks,  and 
interior  surface  checks. 

Normal  program  operation. 

Restart,  program  uses  existing  influence  matrices  from  units  1  and  2. 

Restart,  program  uses  existing  influence  matrices  from  units  1  and  2  and 
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survey  influence  matrices  from  unit  3. 

RUN  =  -1  is  used  when  only  geometry  data  needs  to  be  computed.  This  is  normally  used  in 
conjunction  with  DUMP  =  1  to  produce  a  dump  file  for  plotting  the  configuration  geometry. 

RUN  =  0  is  used  for  geometry  data  and  abutment  checking,  but  not  a  full  run.  This  is  normally  used 
for  debugging,  usually  with  DUMP  —  1  to  produce  a  dump  file  for  plotting.  This  allows  the 
configuration  panel  edge  abutments  to  be  checked. 

RUN  -  1  is  used  when  complete  program  execution  is  needed. 

RUN  =  2  or  3  is  used  when  the  program  is  to  be  restarted  using  influence  matrices  from  a  previous 
run.  If  a  run  merely  involves  a  change  in  flow  conditions  or  propeller  effects  with  no  change  in  the 
geometry  or  Mach  number,  then  the  program  may  be  restarted  using  the  potential  influence  matrices 
from  units  1  and  2  from  the  initial  run.  If  there  is  a  flow  survey  and  the  survey  grid  has  not  changed, 
the  flow  survey  may  also  be  restarted  by  using  RUN  =  3.  In  this  case  the  velocity  influence  matrices 
are  needed  from  unit  3  of  the  initial  run.  See  2.5.4  and  Appendbc  C  for  further  information  on  restarts. 

PRINT  -  Print  control  (col.  21-30) 

PRINT  =  0:  all  output  data  printed 
PRINT  =  1 :  all  output  data  printed  except  geometric  data 
PRINT  ==  2:  only  force  data  and  element  pressure  data  printed 
PRINT  =  3:  only  force  data  printed 

Flag  controlling  die  output  data  which  is  printed  by  the  program  on  unit  6.  Some  of  die  output  data 
print  may  be  suppressed  if  it  is  not  needed.  Ch^ter  8  fully  defines  the  output  generated  for  each 
value  of  this  flag. 

The  program  prints  four  sets  of  output  data  for  die  run  in  addition  to  a  literal  input  echo,  an 
interpreted  input  echo,  a  list  of  defined  panels  and  the  panel  abutment  list,  all  of  which  are  printed  for 
all  cases.  The  four  optional  sets  are: 

•  A  full  listing  of  the  geometry  of  the  elements  in  the  configuration  including  indices, 
comer  points,  control  point,  normal  vector,  and  area. 

•  The  forces  and  moments  on  the  whole  configuration  and  on  each  panel  in  three 
coordinate  systems:  body  axes,  stability  axes,  and  wind  axes. 

•  A  listing  of  die  pressure  and  velocity  on  each  element  in  the  configuration,  grouped  by 
panels. 

•  The  singularity  strengths  (source  and  doublet)  on  each  element  in  the  configuration, 
grouped  by  panels. 

DUMP  -  Dump  file  control  flag  (col.  3 1-40) 

DUMP  =  0:  dump  file  is  not  created 
DUMP  =  1 :  dump  file  is  created 

Flag  controlling  die  creation  of  an  output  dump  file  on  unit  7.  The  dump  file  may  be  used  by  other 
programs  which  post-process  geometry  or  pressure  data,  for  example.  See  Appendix  B  for 
information  on  die  Dump  File. 
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ABSTOL  “  Absolute  geometric  tolerance  distance  (col.  41-50) 

The  absolute  tolerance  distance  to  be  used  in  determining  element  edge  abutments.  Element  edges 
will  be  considered  abutted  if  the  distance  between  the  midpoints  of  the  edges  is  less  than  the  smaller 
of  ABSTOL  and  RELTOL  *(element  edge  length). 

The  default  for  ABSTOL  (also  used  if  ABSTOL  is  input  as  0)  is  10  times  the  minimum  resolvable 
distance  (using  the  machine  precision)  at  the  maximum  X,  Y  or  Z  coordinate  in  the  configuration. 
Additional  information  is  available  in  Chapter  5. 

RELTOL  -  Relative  tolerance  (col.  51-60) 

The  fiaction  of  the  element  edge  length  to  be  used  in  determining  element  edge  abutments  (defaults 
to  0.1).  Element  edges  will  be  considered  abutted  if  the  distance  between  the  midpoints  of  the  edges 
is  less  than  the  smaller  of  ABSTOL  and  RELTOL  "^(element  edge  length).  See  Chapter  5  for  more 
information. 

Record  G4:  SREF,  CBAR,  WSPAN,  XBAR,  YBAR,  ZBAR 

This  record  specifies  the  reference  quantities  to  be  used  for  normalizing  forces  and  moments  for  the 
configuration.  These  quantities  should  be  in  the  same  units  as  the  input  variables  defining  the  geometry. 

SREF  -  Configuration  reference  area  (col.  1-10) 

The  reference  area  for  all  aerodynamic  coefficients  (defaults  to  1.0).  This  is  the  reference  area  for  the 
entire  configuration  (both  sides  of  the  plane  of  symmetry)  when  the  configuration  is  laterally 
symmetric.  The  program  will  include  forces  from  image  panels  in  the  total  forces  and  moments. 

CBAR  -  Mean  chord  (col.  1 1-20) 

The  reference  length  for  all  body  axis  moments  and  the  pitching  moments  in  the  wind  and  stability 
axis  systems  (defaults  to  1.0). 

WSPAN  -  Wingspan  (col.  21-30) 

The  reference  length  for  the  rolling  and  yawing  moments  in  wind  and  stability  axis  systems  (defaults 
to  1.0).  This  is  the  span  across  both  sides  of  the  plane  of  symmetry  when  the  configuration  is  laterally 
symmetric. 

XBAR  -  Coordinates  of  moment  reference  and  rotation  center 
YBAR  (col.  31-40, 41-50,  51-60) 

ZBAR 

This  point  fixes  the  location  of  the  moment  reference  center  (defaults  to  0.,0.,0.).  See  Fig.  4.3.  It  is 
also  the  center  of  rotation  for  the  configuration  (if  the  aircraft  has  no  rotation,  this  point  has  meaning 
only  as  the  moment  center). 

Record  G5:  ALPHA,  BETA,  OMEGAX,  OMEGAY,  OMEGAZ,  VINF 

Flow  conditions  to  be  analyzed  in  the  run.  This  record  may  be  repeated  for  up  to  30  flow  conditions.  The 
free  stream  is  specified  by  angles  of  attack  and  sideslip,  and  the  angular  velocity  vector  is  specified  along 
with  a  free  stream  velocity  to  nondimensionalize  the  time  derivatives  implied  in  the  rotation  rates.  The 
angular  velocity  is  the  body  axis  rotation  rate  of  the  configuration  about  the  rotation  center.  See  Appendix 
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D  for  more  information  on  using  the  program  for  nonzero  angular  velocities.  The  ke5fWord  PANEL 
tenninates  the  global  data. 

ALPHA  -  Angle  of  attack  (degrees)  (col.  1-10) 

The  angle  of  attack  is  the  angle  made  by  the  projection  of  the  free  stream  vector  into  the  X-Z  plane 
with  the  X-axis.  It  is  considered  positive  when  the  wind  has  a  component  along  the  positive  Z-axis 
(wind  from  below)  as  shown  in  Figure  7-3. 

BETA  -  Angle  of  sideslip  (degrees)  (col.  1 1-20) 

The  angle  of  sideslip  is  the  angle  between  the  free  stream  vector  and  the  X-Z  plane.  It  is  considered 
positive  when  the  wind  has  a  component  along  the  positive  Y-axis  (wind  from  the  port  side)  as  shown 
in  Figure  7-3.  Note  that  this  is  not  the  same  as  the  angle  between  the  X-axis  and  the  projection  of  the 
velocity  vector  into  the  X-Y  plane! 

OMEGAX  -  X-component  of  angular  velocity  (deg/sec)  (col.  21-30) 

The  component  of  the  aircraft’s  angular  velocity  about  the  X-axis  (positive  in  the  sense  defined  by 
the  right-hand  rule). 

OMEGAY  -  Y-component  of  angular  velocity  (deg/sec)  (col.  31-40) 

The  component  of  the  aircraft’s  angular  velocity  about  the  Y-axis  (positive  in  the  sense  defined  by 
the  right-hand  rule). 

OMEGAZ  -  Z-component  of  angular  velocity  (deg/sec)  (col.  41-50) 

The  component  of  the  aircraft’s  angular  velocity  about  the  Z-axis  (positive  in  the  sense  defined  by  the 
right-hand  rule). 

VINE  -  free  stream  velocity  (col.  51-60) 

The  translational  velocity  used  to  normalize  the  angular  rates  (defaults  to  1.0).  It  is  necessary  to  input 
VINF  only  when  there  are  nonzero  angular  rates.  If  the  aircraft  is  nonrotating,  all  computed  output  is 
independent  of  free  stream  velocity. 

The  final  set  of  data  in  the  QUADPAN  Global  Data  Group  is  the  control  surface  specifications. 
The  keyword  AESURF  was  added  to  the  Global  Data  Group  to  integrate  QUADPAN  with  ASTROS.  The 
control  surface  functionality  operates  in  conjunction  with  the  DEFLECT  option  which  is  defined  within 
the  Panel  Data  Group.  QUADPAN  control  surfaces  are  constructed  from  a  collection  of  panels.  Sur&ce 
geometry,  symmetry,  and  pressure  magnitude  are  determined  through  AESURF  input.  Table  7-1  displays 
the  sub-keywords  that  are  used  in  ftiis  data  flow  to  define  the  control  surfaces.  The  hingeline  and  sign 
convention  for  svaface  rotation  is  defined  within  the  DEFLECT  options  for  each  unique  panel.  ITie  user 
must  be  carefid  to  d^ne  consistent  rotation  axes  in  the  DEFLECT  option  with  intended  surface  deflection 
symmetries  in  the  AESURF  optionl 

QUADPAN  flow  solutions  are  obtained  in  the  sequence  of  an  outer  loop  on  the  specified  flow 
conditions  and  an  inner  loop  on  each  surface.  Consequently,  the  number  of  flow  solutions  to  be  acquired 
within  a  QUADPAN  analysis  is  determined  by  the  product  of  the  niunber  of  flow  conditions  and  the 
number  of  control  surfaces.  Any  number  of  control  surfaces  may  be  defined.  Any  number  of  Panels  may 
belong  to  an  AESURF  declaration.  Reference  4  provides  further  discussion  and  an  example  of  the 
AESURF  option. 
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Table  7-1  Definition  of  Control  Surfaces  in  QUADPAN 


<option> 

Description 

“AESURF’ 

(keyword) 

User  Name 

an  8  character  (truncated  from  10)  surface  name 

Symmetry 

the  surface  symmetry  (-1 , 1  or  blank) 

“PANELS” 

(keyword)  panel  ids’  one  or  more  records  of  1  to  8  panel  ids  that  comprise 
the  sur^ce 

“ANGLES” 

(keyword)  angular  deflection,  one  or  more  records  of  1  to  0  angles  (in 
deg.)  that  comprise  the  surface  sweeps. 

7.7  PANEL  DEFINITION  DATA 


The  panel  definition  data  (records  P1-P9)  begins  with  the  first  keyword  PANEL,  ending  the  global 
data.  Each  panel  definition  must  begin  with  the  keyword  PANEL  and  is  terminated  by  the  keyword 
PANEL  (starting  the  next  panel  definition),  the  keyword  PROPELLER,  the  keyword  SURVEY,  the  end  of 
file,  or  a  blank  line.  The  program  expects  at  least  one  panel  definition  to  be  present  in  every  input  dataset, 
with  a  limit  of 200  panels. 

The  panel  is  the  basis  of  the  QUADPAN  dataset.  The  concepts  and  nomenclature  to  use  panels  to 
create  geometric  models  is  presented  in  Chapter  6. 

The  panel  definition  data  contains  several  header  records  for  identification,  specifying  boundary 
conditions  and  some  required  flags,  plus  additional  keywords  to  exercise  various  useful  options.  These  may 
be  selected  using  records  P4-P9  and  are  entirely  optional.  They  include  the  specification  of  quantities  that 
alter  the  boundary  conditions  to  be  applied  to  the  panel,  a  transformation  to  be  applied  to  the  defined  panel 
so  that  it  may  be  described  in  its  own  coordinate  system  (the  panel  coordinate  system  or  PCS)  and 
information  diat  will  respace  the  element  mesh  in  eidier  or  both  of  die  J  or  K  lattice  directions. 

Following  tiiis  is  a  set  of  section  definitions,  each  beginning  widi  the  keyword  SECTION. 
Sections  are  the  building  blocks  of  the  panel  in  much  the  same  way  as  the  panek  are  the  building  blocks  of 
the  configuration.  After  each  section  is  defined,  the  program  checks  to  see  if  the  panel  k  finkhed  or 
another  section  begins.  Sections  are  discussed  under  Section  Data. 

Panel  Data  Keywords 


PANEL 

PERMEABILITY 

DEFLECT 

ABUT 

LOCATE 

JSPACE 

KSPACE 


Initiates  panel  definition 
Allows  specification  of  panel  normal  velocity 
Simulates  panel  deflection  about  an  axk 
Allows  user  to  specify  panel  abutment  data 
Specifies  panel  transformation  (translation,  rotation, 
scaling) 

Allows  respacing  in  J  direction 
Allows  respacing  in  K  direction 
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Record  PI:  PANEL  -  <KEYWORD> 


The  keyword  PANEL  indicates  the  beginning  of  the  definition  of  each  panel.  Any  pending  lists  are 
terminated  by  this  keyword. 

Record  P2:  PIDNUM,  PITTLE 

A  number  and  a  title  to  be  associated  with  the  panel  for  identification  purposes. 

PIDNUM  -  Panel  identification  number  (col.  1-10) 

A  panel  identification  number,  assigned  by  the  user,  that  is  associated  widi  this  panel.  The  number 
may  be  any  positive  whole  number  between  1  and  9999.  The  panel  ID  number  must  be  unique  to  this 
panel  (no  repeated  identification  numbers  within  the  dataset).  The  image  of  this  panel,  if  it  has  one, 
will  be  referred  to  by  the  negative  of  this  number. 

PTITLE  -  Panel  title  (col.  1 1-58) 

An  identifying  description  for  the  panel,  up  to  48  characters  long,  starting  in  column  11.  This  title 
should  be  as  informative  as  possible  as  to  the  identity  of  the  panel. 

Record  P3:  TYPE,  WET,  FORCE,  IMAGE 

This  record  contains  the  panel  flags  that  control  the  boundary  conditions  to  be  applied  to  the  panel,  the  side 
of  the  panel  to  be  used  as  the  exterior  surface,  the  disposition  of  panel  forces,  and  the  generation  of  an 
image  panel. 

TYPE  -  panel  type  (col.  1-10) 

TYPE=-1:  body  panel  widi  exterior  potential  specified 
TYPE  =  0:  body  panel  widi  exterior  normal  velocity  specified 
TYPE  =  1 :  wake  panel  where  edge  1  is  the  Kutta  edge 
TYPE  =  2:  wake  panel  where  edge  2  is  the  Kutta  edge 
TYPE  =  3:  wake  panel  where  edge  3  is  the  Kutta  edge 
TYPE  =  4:  wake  panel  where  edge  4  is  the  Kutta  edge 

Flag  specifying  die  type  of  boundary  condition  to  be  applied  to  a  panel. 

TYPE  =  0  —  Body  panel  with  specified  normal  velocity 

This  type  of  panel  is  used  for  nearly  all  body  (nonwake)  panels.  It  is  used  for  body  panels  that  will 
have  hydrodynamic  boundary  conditions  (specified  normal  velocity  at  the  exterior  surface)  applied  to 
diem.  This  includes  impermeable  panels,  where  the  exterior  normal  velocity  is  specified  to  be  zero.  On 
TYPE  =  0  panels,  the  source  strength  is  specified  by  the  onset  flow  velocity  at  the  control  point,  plus  a 
normal  flow  (given  by  the  panel  permeability).  The  doublet  strength  is  determined  by  the  solution  to 
the  linear  system. 

TYPE  =  1-4  -  Wake  panel 

Wake  panels  are  used  to  represent  the  vortex  wake  from  a  lifting  surface  and  enforce  the  Kutta 
condition  at  one  of  tiieir  edges.  A  wake  panel  is  specified  with  TYPE  =  1-4,  the  TYPE  indicating 
which  of  the  four  panel  edges  is  to  have  die  Kutta  condition  applied  (see  Figure  7-4)  for  an  illustration 
of  die  four  edges  of  a  panel).  This  edge  should  normally  be  the  one  coincident  with  the  trailing  edge  of 
a  wing,  where  the  Kutta  condition  is  applied.  The  “Kutta”  edge  can  also  be  placed  coincident  with  an 
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edge  of  another  wake  panel  to  fiirdier  extend  the  vortex  wake.  In  this  way,  a  short  wake  panel  can  be 
continued  into  an  entire  wake  system  to  transmit  the  vortex  downstream. 

The  Kutta  condition  basically  enforces  the  condition  that  the  sum  of  the  doublet  strengths  at  the  Kutta 
edge  be  zero. 


TYPE  =  -1  -  Body  panel  with  specified  exterior  potential 

These  are  special  purpose  boundary  conditions,  used  on  body  panels  for  problems  where  a  specified 
potential  (and  tangential  velocity)  must  be  applied  on  the  exterior  sur&ce.  This  is  normally  done  to 
make  an  ill-posed  potential  problem  well-posed.  Its  use  includes  internal  flow  problems  and  situations 
involving  closed  wake  volumes  such  as  the  closure  panel  at  a  thick  trailing  edge  with  wakes  shed  from 
the  upper  and  from  the  lower  surfrice.  This  is  discussed  further  in  Ref.  4.  On  TYPE  =  -1  panels,  the 
doublet  strength  is  specified  such  that  the  total  tangential  velocity  on  die  exterior  surface  at  the  control 
point  is  zero.  The  source  strength  is  determined  by  the  solution  to  the  linear  system. 

WET  -  Panel  surface  wetted  flag  (col.  1 1-20) 

WET=+1:  Panel  wetted  only  on  positive  surface 
WET  =  -1 :  Panel  wetted  only  on  negative  surface 

Flag  specifying  which  of  the  panel’s  surfaces  (positive  or  negative)  is  to  be  used  as  the  “exterioi” 
suifrtce,  wetted  by  the  flow.  Figure  7-4  illustrates  the  panel  positive  and  negative  surfrces.  The 
positive  surhice  can  be  determined  by  the  use  of  the  right  hand  rule  on  the  panel  edge  sequence  edge 

1,  edge  2,  edge  3,  edge  4  (the  first  section  entered  is  edge  1,  the  last  point  in  each  section  defines  edge 

2,  the  last  section  entered  is  edge  3,  and  the  first  point  in  each  section  defines  edge  4).  The  thumb  of 
die  right  hand  will  point  in  the  direction  of  the  positive  side. 

Eidier  the  positive  or  negative  surfrice  of  die  panel  can  be  specified  as  the  “exterior”  sur&ce  (wetted 
by  die  flow)  widi  die  WET  flag.  The  “exterior”  surfrice  (defining  the  outward  normals)  will  be  the 
positive  panel  surfrice  for  WET  -  1,  or  the  negative  panel  surfrice  for  WET  =  -1.  Note  that  the  value 
of  WET  for  a  wake  panel  may  be  either  +l  or  -1  since  it  is  wetted  on  both  sides  (the  only  difference 
will  be  the  sign  of  the  wake  element  doublet  strengths). 

FORCE  -  Panel  force  flag  (col.  21-30) 

FORCE  =  0:  Panel  which  does  not  contribute  to  total  forces  and  moments 
FORCE  =  1 :  Panel  which  does  contribute  to  total  forces  and  moments  (default) 

Flag  specifying  whether  or  not  die  forces  and  moments  on  a  panel  are  to  be  included  in  the  total 
forces  and  moments  on  die  configuration.  As  an  example,  FORCE  =  0  might  be  used  on  panel(s) 
representing  an  external  store  which  has  just  been  released,  or  on  a  panel  used  to  model  the  exhaust 
plume  behind  a  nacelle.  The  FORCE  flag  of  a  wake  panel  (TYPE  =  1-4)  is  automatically  set  to  zero 
(no  forces),  no  matter  what  is  input. 

IMAGE  -  Panel  image  flag  (col.  3 1-40) 

IMAGE  =  0:  panel  has  no  image 
IMAGE  =  1 :  panel  has  an  image  (defriult) 

Flag  specifying  whether  a  panel  is  to  be  reflected  in  the  X-Z  plane  to  create  an  image  panel.  Panels 
which  ^ipear  symmetrically  in  the  geometry  need  be  input  only  once  widi  an  image  specified.  If  die 
geometry  is  completely  symmetric  about  the  X-Z  plane,  then  only  half  the  configuration  need  be 
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input,  with  all  panels  having  IMAGE  =  1.  The  program  will  then  construct  the  other  half  by 
reflection. 

Record  P4:  PERMEABILITY  -  <KEYWORD> 

The  keyword  PERMEABILITY  orecedes  the  specification  of  the  nonnal  velocity  (permeability)  on  the 
panel  exterior  surhice  in  recordr  ?4a  and  P4b.  If  die  keyword  is  omitted,  the  panel  is  assumed  to  be 
impermeable  and  records  P4a  ar.d  P4b  are  not  read.  The  value  of  the  normal  velocity  must  be  entered  on 
the  next  record,  and  (optionally)  the  image  normal  velocity  on  the  record  following  that. 

An  example  of  where  this  might  be  used  is  on  a  panel  representing  the  compressor  face  in  a  nacelle  inlet, 
where  die  permeability  serves  to  set  the  mass  flow  at  the  compressor  face.  This  is  discussed  further  in  Ref. 
4. 

Records  P4a:  VNORM- panel  normal  velocity 
Records  P4b:  VNORM  -  panel  normal  velocity  (image) 

This  is  die  ratio  of  the  normal  velocity  prescribed  on  the  surface  of  the  panel  to  the  free-stream  velocity 
(for  a  TYPE  -  0  panel).  A  positive  value  indicates  outflow  (a  velocity  vector  pointing  out  along  the  normal 
vector  into  the  flow  which  wets  the  panel).  A  negative  value  indicates  inflow.  It  should  be  noted  that  this  is 
an  explicit  specification  of  the  normal  component  of  velocity  only  when  the  Mach  number  is  zero. 

/ 

If  the  panel  has  an  image,  the  image  panel  nonnal  velocity  may  be  entered  on  a  following  card  (record 
P4b).  If  omitted,  it  is  assumed  that  the  image  panel  nonnal  velocity  is  identical  to  that  of  the  original  panel, 
making  the  boundary  conditions  symmetrical. 

The  specification  of  panel  permeability  controls  the  source  strength  for  TYPE  =  0  panels.  The  actual 
relation  used  for  SIGMA  (the  source  strength)  is: 

SIGMA  =  VNORM  -  (component  of  onset  flow  along  outward  normal) 

For  VNORM  ==  0  (default)  this  gives  zero  total  normal  velocity  on  the  exterior  surface  (impermeable 
surface). 

The  panel  permeability  also  controls  the  doublet  strength  for  TYPE  =  -1  panels.  A  VNORM  -  0  (default) 
gives  zero  total  tangential  velocity  on  the  exterior  surface.  If  VNORM  is  specified  as  1.0  the  tangential 
velocity  on  the  exterior  surface  is  the  tangential  component  of  the  free  stream. 
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Record  P5:  DEFLECT  -  <KE  YWORD> 

The  keyword  DEFLECT  precedes  a  specification  of  simulated  panel  deflection  in  records  P5a  and  P5b.  If 
the  deflection  specification  and  keyword  are  omitted  no  panel  deflection  occurs  and  records  P5a  and  P5b 
are  not  read.  The  axis  specification  and  deflection  angle  must  be  entered  on  the  next  record,  and 
(optionally)  the  image  panel  axis  and  deflection  on  the  record  following  that  if  the  panel  has  an  image. 

This  option  allows  the  user  to  alter  the  boundary  conditions  to  be  used  on  a  panel  to  simulate  a  geometric 
deflection  (rotation  about  an  axis)  without  actually  having  to  construct  a  deflected  panel  geometric 
definition.  Since  the  simulated  deflection  affects  only  the  boundary  conditions,  this  option  may  be  used  in 
restarts  with  matrices  generated  without  deflections.  The  simulated  panel  deflection  will  not  be  as  accurate 
as  a  physically  deflected  panel  for  large  deflections,  but  for  small  deflection  angles  the  results  are  quite 
acceptable. 

An  example  of  where  this  option  may  be  used  is  to  simulate  the  deflection  of  the  panel(s)  modeling  an 
elevator  on  an  aircraft.  The  simulated  deflection  has  no  effect  on  restarts,  so  the  use  of  this  option  is 
extremely  cost  effective  in  restart  mode.  This  is  discussed  further  in  Ref.  4. 

Records  P5a:  XTAIL.YTAIL,ZTAIL,XHEAD,YHEAD,ZHEAD,DEFLECT 
Records  P5b:  XTAIL,YTAIL,ZTAIL,XHEAD,YHEAD,ZHEAD,DEFLECT  (image) 

This  record  specifies  a  panel  deflection  axis  and  deflection  angle  for  simulated  deflection  of  the  panel.  This 
is  given  by  two  points  on  the  deflection  axis  and  a  deflection  angle.  If  the  panel  has  an  image,  the  image 
panel  deflection  may  also  be  specified  on  the  following  card  (record  P5b).  If  omitted,  it  is  assumed  that  the 
image  panel  deflection  is  identical  (symmetrical  across  the  X-Z  plane)  to  that  of  die  original  panel. 

XTAIL,YTAIL,ZTAIL  -  tail  of  axis  vector  (col.  1-10,  1 1-20, 21-30) 

XHEAD,YHE  AD,ZHEAD  -  head  of  axis  vector  (col.  3 1 -40, 4 1 -50, 5 1 -60) 

The  (global)  coordinates  of  the  head  and  tail  of  a  vector  defining  the  axis  of  rotation  (die  vector 
points  from  tail  to  head).  The  magnitude  of  the  vector  is  immaterial,  but  the  direction  of  the  vector 
defines  the  positive  sense  of  rotation  via  the  right-hand  rule.  For  example,  the  head  and  tail  may  be 
any  two  points  on  the  hinge  line  of  a  control  surface. 

DEFLECT  -  deflection  angle  (degrees)  (col.  6 1  -70) 

Angle  through  which  the  panel  is  deflected  in  degrees.  The  positive  sense  of  rotation  is  determined  by 
the  right-hand  rule  about  the  rotation  axis  vector.  Since  die  deflection  is  merely  simulated  by  rotating 
the  free  stream  vector  that  the  panel  “sees,”  the  deflection  angle  should  be  restricted  to  small  values. 

Example: 

*234567890  12345678901234567890123456789012345678901234567890RULER 
* 

DEFLECT 


•XTAEL 

YTAIL 

ZTAIL 

XHEAD 

YHEAD 

ZHEAD 

ANGLE 

0. 

0. 

0. 

0. 

2. 

0. 

5. 

This  specifies  a  simulated  deflection  of  5  degrees  about  an  axis  parallel  to  the  Y  global  axis. 
Record  P6:  ABUT  -  <KEYWORD> 

The  keyword  ABUT  precedes  a  specification  of  the  panel  edge  abutments. 


144 


The  program  contains  an  automatic  procedure  to  search  all  panel  edges  to  establish  contiguous  neighboring 
elements  across  panel  boundaries.  The  element  neighbors  are  used  for  surface  differentiation  of  the 
potential  to  establish  velocity  and  to  set  up  Kutta  conditions  at  wake  shedding  lines. 

In  the  great  majority  of  cases  where  the  input  geometry  is  relatively  gapless,  the  automatic  procedure  will 
establish  the  element  connectivity  without  further  user  intervention.  In  some  cases,  however,  it  may  be 
desirable  to  restrict  the  search  space  for  the  automatic  abutment  search  to  eliminate  possible  abutment 
ambiguities. 

The  ABUT  keyword  allows  the  user  to  specify  the  search  space  to  be  used  on  the  panel’s  edges.  See 
Chapter  8  for  a  description  of  the  abutment  search  procedure  and  8.5  for  details  on  user  specified  abutment 
searches. 

Record  P6a:  EDGEN,  PANEL,  EDGE 

The  abutment  specification  follows  the  keyword  ABUT  in  record  P6.  This  record  allows  the  user  to  specify 
the  search  space  to  be  used  in  the  automatic  abutment  procedure  for  any  or  all  of  the  four  edges  in  the 
current  panel  to  user  selected  panels  and  edges.  The  specification  of  an  abutting  panel  and  edge  in  the 
abutment  search  space  does  not  guarantee  that  the  program  will  consider  them  connected,  it  merely  restricts 
the  edges  to  be  checked  in  the  geometric  search.  There  is  currently  no  method  provided  for  the  direct 
specification  of  edge  abutments. 

The  user  may  define  up  to  8  panel/edge  combinations  per  panel  edge  to  be  searched  by  the  abutment  search 
in  a  user-specified  abutment.  Record  P6a  may  be  repeated  as  necessary  to  specify  abutments  for  the  panel. 

EDGEN  -  edge  number  of  current  panel  (col.  1-10) 

A  panel  edge  may  be  specified  independently  of  the  other  edges  in  the  panel.  This  must  be  in  the 
range  from  1  to  4.  See  Figure  7-4  for  a  definition  of  the  panel  edges. 

PANEL  -  panel  ID  number  of  abutting  panel  (col.  1 1-20) 

If  the  abutting  panel  ID  number  is  not  specified  (or  is  specified  as  zero),  the  program  will  consider 
the  edge  not  connected  to  any  other  edges.  Image  panels  in  abutment  specifications  use  ID  numbers 
which  are  the  negative  of  their  real  counterparts. 

EDGE  -  edge  number  of  abutting  panel  (col.  21-30) 

The  edge  number  must  in  the  range  from  0  to  4.  If  the  abutting  edge  number  is  not  specified  (or  is 
specified  as  zero),  the  program  will  search  all  4  edges  of  that  abutting  panel. 


Example: 


*234567890 

* 

ABUT 

*EDGEN 

1. 

3. 

3. 

2. 


12345678901234567890123456789012345678901234567890RULER 


PANEL  EDGE 

0. 

30.  2. 

31.  4. 

8.  0. 
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This  specifies  that  edge  1  of  this  panel  has  no  neighbors,  the  program  should  look  for  neighbors  for  edge  3 
from  panel  30  edge  2  and  from  panel  3 1  edge  4,  and  finally  that  the  program  should  look  for  neighbors  for 
edge  2  from  all  four  edges  of  panel  8. 

Record  P7;  L<X:ATE  -  <KEYWORD> 

The  keyword  LOCATE  must  precede  the  specification  of  the  locater  points.  If  the  keyword  LOCATE  is 
omitted  records  P7  a,  b,  c  are  not  read  and  the  global  coordinates  of  the  panel  will  be  identical  to  the  panel 
coordinates. 

The  locater  points  specify  a  transformation  to  be  applied  to  the  defined  panel  so  diat  it  may  be  described  in 
its  own  coordinate  system,  the  panel  coordinate  system  (PCS).  This  transformation  uses  diree  points  whose 
location  is  given  in  both  the  panel  coordinate  system  and  the  global  coordinate  system.  Combined 
translation,  isomorphic  scaling,  and  rotation  may  be  specified  by  this  option  (Figure  7-5). 
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Multiple  locater  point  transfonnations  can  be  specified  using  additional  LOCATE  keywords  and  locater 
point  records.  The  transformations  are  done  in  the  order  in  which  they  are  entered,  i.e.,  the  first  locater 
transformation  is  the  first  applied  to  the  panel  while  the  last  locater  transformation  will  be  the  last  applied 
to  the  panel.  Note  that  locater  transformations  are  not,  in  general,  commutative. 

Records  P7a:  XP1,YP1,ZP1,XG1,YG1,ZG1  (col.  1-10, 1 1-20, 21-30, 31-40, 41-50, 51-60) 

Records  P7b:  XP2,YP2,ZP2,XG2,YG2,ZG2  (col.  1-10, 1 1-20, 21-30, 31-40, 41-50,  51-60) 

Records  P7c:  XP3,YP3,ZP3,XG3,YG3,ZG3  (col.  1-10, 1 1-20, 21-30, 31-40, 41-50,  51-60) 

Where  the  fields  given  above  are  defined  as: 

XP1,YP1,ZP1  -  panel  coordinates  of  first  locater  point 
XG1,YG1^G1  -  global  coordinates  of  first  locater  point 

XP2,YP2,ZP2  -  panel  coordinates  of  second  locater  point 
XG2,YG2^G2  -  global  coordinates  of  second  locater  point 


XP3,YP3,ZP3  -  panel  coordinates  of  diird  locater  point 
XG3,YG3^G3  -  global  coordinates  of  third  locater  point 

The  coordinates  of  the  locater  points  (records  P7a-c)  must  be  preceded  by  the  keyword  LOCATE. 

Theses  records  specify  the  panel  locater  point  transformation.  The  coordinates  of  the  three  sets  of  points 
are  used  to  size  and  locate  tte  panel  in  the  global  coordinate  system.  The  locater  points  may  be  any  three 
points  which  are  not  colinear  and  thus  form  a  triangle.  The  locater  points  need  not  lie  on  the  panel  itself,  or 
be  any  of  the  defining  points. 

The  action  of  the  locater  points  is  most  easily  understood  if  die  locater  triangle  in  panel  coordinates  is 
similar  to  the  locater  triangle  in  global  coordinates.  The  size  of  the  panel  is  altered  (without  changing  the 
shape  of  the  panel)  until  the  panel  locater  triangle  is  congruent  to  the  global  locater  triangle.  The  panel  is 
dien  placed  in  the  global  coordinate  system  so  that  the  panel  locater  triangle  coincides  with  the  global 
locater  triangle. 


More  generally,  if  the  triangles  are  not  similar,  the  panel  is  sized  according  to  the  distance  between  the  first 
and  second  locater  points.  The  panel  is  then  placed  so  that  the  first  and  second  panel  locater  points  coincide 
with  the  first  and  second  global  locater  points,  and  die  panel  triangle  is  coplanar  with  the  global  triangle. 
The  fourth  example  dataset  (7.1 1 .4)  also  provides  examples  of  the  use  of  locater  points. 


Example  1: 


•234567890  12345678901234567890123456789012345678901234567890RULER 


LOCATE 

*XP  YP  ZP 

0.  0.  0. 

0.  1.  0. 

0.  0.  1. 


XG  YG  ZG 

10.  0.  0. 

10.  2.  0. 

10.  0.  2. 


This  specifies  a  translation  of +10  in  the  X  direction  plus  a  2X  increase  in  size. 


Example  2: 

•234567890  12345678901234567890123456789012345678901234567890RULER 
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LOCATE 


•XP 

YP 

ZP 

XG 

YG 

ZG 

100. 

10. 

10. 

300. 

0. 

0. 

101. 

10. 

10. 

300.7071 

.7071 

0. 

100. 

10. 

0. 

300. 

0. 

-1. 

This  specifies  a  translation  of  a  point  at  (100., 10.,  10.)  to  (300.,0.,0.)  plus  a  rotation  of  45  degrees  about  the 
Z-axis. 

Record  P8:  JSPACE  -  <KEYWORD> 

The  keyword  JSPACE  precedes  the  specification  of  the  number  and  distribution  of  elements  in  the  J 
direction  in  record  P8a.  Only  a  single  spacing  range  may  be  specified  using  this  option.  If  the  keyword  and 
its  associated  spacing  information  is  omitted,  then  no  respacing  is  done  in  the  J  direction  unless  provided 
for  by  spacing  range  information  with  the  AT  keyword,  and  record  P8a  is  not  read.  See  Figure  7-4  for  a 
definition  of  the  J  direction. 

The  spacing  specified  by  JSPACE  is  overruled  by  the  specification  of  a  spacing  range,  using  the  AT 
keyword. 

Record  P8a:  NJ,  JSPACE 

This  record  specifies  the  number  of  elements  and  spacing  distribution  to  be  used  in  respacing  the  panel  in 
the  J  direction.  This  specification  is  used  as  a  default  spacing  to  be  applied  over  the  whole  J  extent  of  the 
panel.  This  specification  will  be  ignored  if  the  finer  spacing  control  provided  by  the  specification  of  a 
spacing  range,  using  the  AT  keyword  (record  S7)  is  present. 

NJ  -  Number  of  elements  in  J  direction  (col.  1-10) 

The  number  of  elements  the  panel  is  to  have  in  the  J  direction.  A  maximum  of  100  elements  may  be 
specified. 

JSPACE  -  Spacing  distribution  in  J  direction  (col.  1 1-20) 

JSPACE  =  ±0:  equal  spacing 
JSPACE  =  ±1:  cosine  spacing 
JSPACE  =  ±2:  sine  spacing 
JSPACE  =  ±3:  equal  spacing 

Flag  specifying  the  spacing  of  the  element  lattice  of  the  panel  in  the  J  direction  (Figure  7-6).  All 
spacing  distributions  are  defined  with  respect  to  the  arc  length  along  the  panel  surface.  Changing  the 
sign  of  the  spacing  parameter  reverses  the  direction  of  the  spacing  distribution.  This  has  an  effect 
only  on  sine  spacing  (a  positive  value  corresponds  to  elements  concentrated  at  edge  1).  Noninteger 
values  of  JSPACE  produce  a  spacing  distribution  which  is  a  weighted  combination  of  the  integer 
values  bounding  it  (Figure  7-7). 

Record  P9:  KSPACE  -  <KE YWORD> 

The  keyword  KSPACE  precedes  the  specification  of  the  number  and  distribution  of  elements  in  the  K 
direction  in  record  P9a.  Only  a  single  spacing  range  may  be  specified  using  this  option.  If  the  keyword  and 
its  associated  spacing  information  is  omitted,  then  no  respacing  is  done  in  the  K  direction  unless  provided 
for  by  spacing  range  information  with  the  SECTION  keyword,  and  record  P9a  is  not  read.  Figure  7-4  for  a 
definition  of  the  K  direction. 

The  spacing  specified  by  KSPACE  is  overruled  by  the  specification  of  a  spacing  range  in  the  section 
definitions. 
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Record  P9a:  NK,  KSPACE 

This  record  specifies  the  number  of  elements  and  spacing  distribution  to  be  used  in  respacing  the  panel  in 
dte  K  direction.  This  specification  is  used  as  a  default  spacing  to  be  applied  over  the  whole  K  extent  of  die 
panel.  This  specification  will  be  ignored  if  the  finer  spacing  control  provided  in  the  section  point  definition 
(record  S6)  is  used. 

NK  -  Number  of  elements  in  K  direction  (col.  1-10) 

The  number  of  elements  the  panel  is  to  have  in  the  K  direction.  A  maximum  of  100  elements  may  be 
specified. 

KSPACE  -  Spacing  distribution  in  K  direction  (col.  1 1-20) 

KSPACE  =  0:  equal  spacing 
KSPACE  =  ±1:  cosine  spacing 
KSPACE  =  ±2:  sine  spacing 
KSPACE  =  ±3:  equal  spacing 


SPACE  =  0  ±3 

I  I 

•  •  I 

III 

I  I  I  I  • 

i  i  i  i 

EQUAL 


/ 

a. 


SPACE  =  ±  1 
-T- 


'f- 


I  /i  \ 
\  !  /  I 

\  I  /  I 


\ 

\ 

u 


COSINE 


SPACE  =  2 


,f-i 

,r  1  -k 

ii  I  I 

iii  i 


i\ 

\  i\  \ 

'  ^  \ 


l\ 

I  \ 


\ 


+  SINE 


SPACE  = - 2 


"/I 

/'/ 

!  1/ 

/ 


/ 


K''' 

A  /  ^  'f'  I  \ 

//I/  i' I  i\ 

i — t  *  *  ii 


\ 


-  SINE 


Figure  7-6  Basic  Spacing  Distributions 
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SPACE  =  3.0 


2.5 

SPACE  =  2.0 

1.5 

SPACE  =  1.0 

0.5 

- SPACE  = 

-0.5 

SPACE  =  -1.0 

-1.5 

SPACE  =  -2.0 

-2.5 

SPACE  =  -3.0 


Flag  specifying  the  spacing  of  the  element  lattice  of  the  panel  in  the  K  direction  (Fig.  4.6).  All 
spacing  distributions  are  defined  with  respect  to  the  arc  length  along  the  panel  surface.  Changing  the 
sign  of  the  spacing  parameter  reverses  the  direction  of  the  spacing  distribution.  This  has  an  effect 
only  on  sine  spacing  (a  positive  value  corresponds  to  elements  concentrated  at  edge  4).  Noninteger 
values  of  KSPACE  produce  a  spacing  distribution  which  is  a  weighted  combination  of  the  integer 
values  bounding  it  (Fig.  4.7). 


7.8  SECTION  DATA 


The  section  data  records  (S1-S13)  contain  the  geometric  definition  of  a  section.  Sections  are  used 
only  to  define  panels  and  must  follow  the  panel  data  records  and  be  contained  within  a  panel  definition.  At 
least  two  sections  are  expected  to  be  present  in  each  panel  to  define  the  panel  lattice. 


In  addition  to  the  basic  coordinates  of  the  section  points,  the  section  data  may  also  include 
transformation  data  to  translate,  scale,  and  rotate  the  input  points,  and  respacing  data  to  alter  the 
distribution  of  points  along  the  curve  defined  by  the  input  points  and  to  redistribute  points  and  to 
redistribute  points  in  the  J  direction  between  sections.  This  permits  the  sections  to  be  defined  in  their  own 
coordinate  systems,  the  Section  Coordinate  System  (SCS),  and  transformed  into  the  panel  system.  The  use 
of  the  transformation  or  respacing  capability  is  entirely  optional  and,  if  not  used,  the  input  points  define  a 
column  of  lattice  points  in  the  K  direction  of  the  panel. 


Section  Data  Keywords 

SECTION 

RECTANGULAR 

CYLINDRICAL 

XAXIS 

YAXIS 

2AXIS 

THREAD 

AT 

SCALE 

TWIST 


Initiates  section  definition 

Precedes  new  section  in  rectangular  coordinates 

Precedes  new  section  in  cylindrical  coordinates 

Specifies  X-axis  for  polar  axis 

Specifies  Y-axis  for  polar  axis 

Specifies  Z-axis  for  polar  axis 

Allows  user  to  specify  section  thread  point 

Specifies  translation  of  section 

Specifies  section  scaling 

Specifies  section  rotation  about  an  axis 


Record  SI:  SECTION  -  <KEYWORD> 


The  keyword  SECTION  precedes  die  definition  of  the  geometry  of  each  section  making  up  the  panel.  Each 
section  consists  of  two  parts,  a  geometric  part  made  up  of  a  list  of  points  and  an  optional  “thread  point” 
specified  by  the  THREAD  keyword,  and  a  transformation  part  in  which  translation,  scaling,  and  rotation 
may  be  applied  to  die  section  points.  No  transformation  is  done  if  the  second  part  is  omitted  or  defauhed. 

The  sections  making  up  die  panel  may  define  the  panel  lattice  directly,  or  may  be  respaced  in  either  or  both 
of  the  J  or  K  directions  to  suit  the  need.  See  6.5  and  6.9  for  information  on  the  basic  panel  and  section 
nomenclature  and  6. 1 0  for  background  on  the  respacing  of  sections  and  panels. 

There  are  three  basic  options  available  when  the  keyword  SECTION  is  used. 

I.  Define  a  new  section  using  rectangular  coordinates.  This  may  be  selected  by  entering  the  keyword 
RECTANGULAR  in  the  next  record. 
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2. 


Define  a  new  section  using  cylindrical  coordinates.  This  may  be  selected  by  entering  the  keyword 
CYLINDRICAL  in  the  next  record.  Either  the  X,  Y,  or  Z  axis  may  be  used  as  the  polar  axis  for  the 
cylindrical  section.  Records  S4  and  S5  describe  this  further.  Cylindrical  sections  have  special 
properties  if  respacing  is  specified. 

3.  Reuse  the  previous  section  defined.  The  repeated  section  may  be  translated,  scaled  in  X,  Y,  or  Z,  and 
rotated.  This  option  is  selected  if  neither  of  the  above  options  for  defining  a  new  section  is  selected.  In 
other  words,  if  the  keyword,  section  definition,  and  thread  point  are  omitted,  then  the  section  points, 
thread  point,  and  any  respacing  data  contained  in  the  section  definition  of  the  previous  section  are  used 
for  the  repeated  section. 

Both  rectangular  and  cylindrical  sections  may  be  mixed  within  a  panel  definition. 

Record  S2:  RECTANGULAR  -  <KEYWORD> 


The  keyword  RECTANGULAR  must  precede  the  definition  of  a  new  section  in  rectangular  coordinates. 
Record  S2a:  X,  Y,  Z,  KBREAK,  NK,  KSPACE 

These  record(s)  contain  the  X,Y,Z  coordinates  of  the  points  defining  the  section  and  optional  flags  for 
controlling  the  respacing  process  in  the  K  direction. 

X,Y^  -  coordinates  of  section  points  (col.  1-10, 11-20, 21-30) 

The  rectangular  coordinates  of  a  set  of  points  defining  the  section  in  the  section  coordinate  system. 


KBREAK  -  break  point  in  section  curve  (col.  3 1-40) 

KBREAK  =  0:  no  break  point 
KBREAK  _  0:  break  spacing 

This  flag  specifies  that  the  point  be  treated  as  a  break  point  in  the  section  curve.  This  is  important 
only  if  the  panel  is  to  be  respaced  in  the  K  direction.  A  break  point  means  that  the  curves  used  to 
respace  the  panel  in  the  K  direction  can  have  slope  discontinuities  as  they  pass  through  this  point.  See 
6.10  for  more  information  on  panel  respacing.  Note  that  specifying  a  break  point  affects  only  the 
definition  of  the  section  shape  and  does  not  guarantee  a  lattice  location  there. 

NK  -  number  of  elements  in  K  direction  (col.  41-50) 


A  nonzero  value  for  NK  specifies  this  point  as  a  spacing  range  in  the  K  direction  and  that  NK 
elements  are  to  be  respaced  between  this  point  and  the  end  of  the  spacing  range.  The  spacing  range 
runs  from  the  current  section  definition  point  until  the  next  spacing  range  is  defined  or  the  end  of  the 
section  definition  is  reached.  This  guarantees  that  this  pint  will  be  a  lattice  point  if  no  respacing  in  J  is 
specified.  The  specification  of  a  spacing  range  overrides  the  default  panel  spacing  established  under 
the  keyword  KSPACE  for  that  spacing  range. 


KSPACE  -  spacing  distribution  for  respacing  (col.  51-60) 


KSPACE  =  0: 

KSPACE-  ±1: 
KSPACE-  ±2: 
KSPACE-  ±3: 


equal  spacing 
cosine  spacing 
sine  spacing 
equal  spacing 
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This  flag  specifies  the  distribution  to  be  used  for  respacing  of  the  element  lattice  within  this  spacing 
range  in  the  K  direction  (Figure  7-6).  All  spacing  distributions  are  defined  with  respect  to  ihe  arc 
length  along  the  panel  surface.  Changing  the  sign  of  the  spacing  parameter  reverses  the  direction  of 
the  spacing  distribution.  This  has  an  effect  only  on  sine  spacing  (a  positive  value  corresponds  to 
elements  concentrated  at  edge  4).  Noninteger  values  of  KSPACE  produce  a  spacing  distribution 
which  is  a  weighted  combination  of  the  integer  values  bounding  it  (Figure  7-7). 

Record  S3:  THREAD  -  <KEYWORD> 

The  keyword  THREAD  must  precede  the  specification  of  the  thread  point.  The  keyword  and  thread  point 
may  be  omitted,  in  which  case  the  thread  point  is  simply  the  origin  (0.,0.,0.)  of  the  section  coordinates.  The 
thread  point  may  be  thought  of  as  a  way  to  reorigin  the  section  coordinates  to  the  location  of  the  thread 
point.  It  also  has  the  additional  significance  that: 

Translation  of  the  section,  using  the  AT  keyword,  is  done  by  moving  the  thread  point  to  a  specifled 
point  in  the  panel  coordinate  system  (PCS). 

Scaling  of  the  section,  using  the  SCALE  keyword,  is  done  about  the  thread  point 

Rotation  of  the  section,  using  the  TWIST  keyword,  is  done  about  an  axis  that  passes  through  the 
thread  point. 

The  thread  point  is  part  of  the  section  definition  and  is  unchanged  if  the  section  is  repeated. 

Record  S3a:  XO,  YO,  ZO  (col.  I-IO,  1 1-20, 21-30) 

This  record  contains  the  X,  Y,  Z  coordinates  for  the  section  thread  point.  These  are  the  rectangular 
coordinates  of  the  point  in  the  section  coordinate  system  which  is  to  be  moved  to  the  location  in  the  panel 
coordinate  system  specified  by  the  AT  keyword.  The  thread  point  is  also  die  point  about  which  section 
scaling  (using  SCALE)  and  section  rotation  (using  TWIST)  is  done.  If  the  AT  keyword  is  not  used  to 
specify  the  translation  of  the  thread  point  is  put  at  the  origin  of  the  panel  system  (default). 

Record  S4;  CYLINDRICAL  -  <KEYWORD> 

The  keyword  CYLINDRICAL  must  precede  the  definition  of  a  new  section  in  cylindrical  coordinates. 
There  are  three  possible  choices  for  the  polar  axis  to  be  used,  the  X,  Y,  or  Z  axis  (Figure  7-8).  The 
following  record  (S5,  S7,  or  S9)  specifies  the  polar  axis  to  be  used. 

The  coordinates  that  may  be  input  are  the  polar  coordinates,  THETA  (angle)  and  R  (radius),  and  a 
coordinate  in  the  direction  of  the  polar  axis  (X,  Y,  or  Z).  The  plane  of  the  polar  coordinates  is  normal  to  the 
polar  axis.  The  polar  angle  (THETA)  is  measured  positive  in  a  right  hand  sense  about  the  polar  axis  and  is 
referenced  to  the  axis  following  the  polar  axis  in  the  permutation  order  XYZXYZ  ...  etc.  For  the  three 
choices  of  polar  axis: 

1.  XAXIS  —  The  polar  angle  is  referenced  to  the  Y  axis.  The  +Z  direction  corresponds  to  +90  deg.,  +Y  to 
0  deg., -Z  to -90  deg.  and-Y  to±180deg. 

2.  YAXIS  —  The  polar  angle  is  referenced  to  the  Z  axis.  The  +X  direction  corresponds  to  +90  deg.,  +Z  to 
0  deg.,  -X  to  -90  deg.  and  -Z  to  +1 80  deg. 

3.  ZAXIS  -  The  polar  angle  is  referenced  to  the  X  axis.  The  +Y  direction  corresponds  to  +90  deg.,  +X  to 
0  deg.,  -Y  to  -90  deg.  and  -X  to  ±180  deg. 
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If  respacing  is  specified  in  the  section  (K)  direction,  cylindrical  sections  possess  special  properties  (6. 10.4). 
The  specified  points  are  first  interpolated  in  THETA,  R,  (X,  Y,  or  Z)  space  by  cylindrical  arc  length  to 
generate  an  enriched  cylindrical  section  with  approximately  100  points.  TTiis  enriched  section  is  converted 
to  rectangular  coordinates  and  is  then  treated  exactly  as  if  it  were  a  rectangular  section  for  further 
operations.  TTiis  procedure  is  done  for  two  reasons: 

1.  The  first  interpolation,  done  in  THETA,  R,  (X,  Y,  or  Z)  coordinates,  has  the  property  that  only 
two  points  need  be  input  to  specify  a  circular  arc.  Near-circular  sections  can  also  be  defuied  by  fewer 
points  than  would  be  required  for  purely  rectangular  definitions. 

2.  The  enrichment  of  th?  input  points  to  approximately  100  interpolated  points  before  respacing 
ensures  the  correct  slope  behavior  at  the  ends  of  the  arc. 

The  enrichment  of  the  input  points  in  cylindrical  coordinates  is  done  in  a  direction  and  range  given  by  the 
end  points.  For  example  if  the  arc  is  specified  from  THETA  =  -90;  to  THETA  =  90,  the  points  will  describe 
a  180  degree  arc,  through  THETA  =  0,  with  THETA  increasing.  If  the  arc  is  specified  from  THETA  =  -90 
to  THETA  =  -270,  die  points  will  describe  a  180  degree  arc,  dirough  THETA  =  -180,  with  THETA 
decreasing.  Angles  greater  than  360  degrees  may  be  used  in  order  to  specify  the  proper  angle  range. 
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Record  S5,  S7,  or  S9:  XAXIS,  YAXIS,  or  ZAXIS  -  <KEYWORD> 


This  record  specifies  the  polar  axis  to  be  used  for  the  cylindrical  section  to  be  defined.  If  one  of  the 
keywords  XAXIS,  YAXIS,  or  ZAXIS  is  not  present,  the  polar  axis  will  default  to  the  X  axis. 

Record  S5a,  S7a,  or  S9a:  THETA,  R,  (X,  Y,  or  Z),  KBREAK,  NK,  KSPACE 

These  record(s)  contain  the  THETA,  R,  (X,  Y,  or  Z)  coordinates  of  the  points  defining  the  cylindrical 
section  and  flags  for  controlling  the  respacing  process  in  the  K  direction.  The  choice  of  polar  axis  (X,  Y,  or 
Z)  is  controlled  by  record  S4a.  As  many  records  may  be  entered  as  necessary  to  adequately  describe  the 
section  shape  up  to  a  maximum.of  101. 

THETA4l,(X,Y,  or  Z)  -  coordinates  of  the  section  (col.  1-10, 11-20, 21-30) 

The  cylindrical  coordinates  of  a  set  of  points  defining  the  section  in  the  section  system.  The  polar 
angle,  THETA,  is  measured  in  degrees.  See  record  S4  for  conventions  for  the  polar  angle. 

KBREAK  -  break  point  in  section  curve  (col.  31-40) 

KBREAK  =  0:  no  break  point 
KBREAK _0:  breakpoint 

This  flag  specifies  that  the  point  be  treated  as  a  break  point  in  the  section  curve.  This  is  important 
only  if  the  panel  is  to  be  respaced  in  the  K  direction.  A  break  point  means  that  the  curves  used  to 
respace  the  panel  in  the  K  dir^on  can  have  slope  discontinuities  as  they  pass  through  this  point.  See 
6.10  for  more  information  on  panel  respacing.  Note  that  specifying  a  break  point  affects  only  the 
definition  of  the  section  shape  and  does  not  guarantee  a  lattice  location  there. 

NK-  number  of  elements  in  K  direction  (col.  41-50) 

A  nonzero  value  for  NK  specifies  this  point  as  a  spacing  range  in  the  K  direction  and  that  NK 
elements  are  to  be  respaced  between  this  point  and  the  end  of  the  spacing  range.  The  spacing  range 
runs  from  the  current  section  definition  point  until  the  next  spacing  range  is  defined  or  the  end  of  the 
section  definition  is  reached.  This  guarantees  that  this  point  will  be  a  lattice  point  if  no  respacing  in  J 
is  specified.  The  specification  of  a  spacing  range  overrides  the  default  panel  spacing  established 
under  the  keyword  KSPACE  for  that  spacing  range. 

KSPACE  -  spacing  distribution  for  respacing  (col.  51-60) 

KSPACE  =  0:  equal  spacing 

KSPACE  ==  ±1:  cosine  spacing 
KSPACE  =  ±2:  sine  spacing 
KSPACE  =  ±3:  equal  spacing 

This  flag  specifies  the  distribution  to  be  used  for  respacing  of  the  element  lattice  within  this  spacing 
range  in  the  K  direction  (Figure  7-6).  All  spacing  distributions  are  defined  with  respect  to  die  arc 
lengdi  along  the  panel  surface.  Changing  the  sign  of  the  spacing  parameter  reverses  the  direction  of 
the  spacing  distribution.  This  has  an  effect  only  on  sine  spacing  (a  positive  value  corresponds  to 
elements  concentrated  at  edge  4).  Noninteger  values  of  KSPACE  produce  a  spacing  distribution 
which  is  a  weighted  combination  of  the  integer  values  bounding  it  (Figure  7-7). 
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Record  S6,S8,  or  SIO:  THREAD  -  <KEYWORD> 

The  ke3word  THREAD  must  precede  the  specification  of  the  thread  point.  The  thread  point  and  its 
keyword  may  be  omitted,  in  which  case  the  thread  point  is  simply  the  origin  (0.,0.,0.)  of  the  section 
coordinates.  The  thread  point  may  be  thought  of  as  a  way  to  reorigin  the  section  coordinates  to  the  location 
of  the  thread  point.  It  also  has  the  additional  significance  that: 

Translation  of  the  section,  using  the  AT  keyword,  is  done  by  moving  the  thread  point  to  a  specified 
point  in  the  panel  coordinate  system  (PCS). 

Scaling  of  the  section,  using  the  SCALE  keyword,  is  done  about  the  thread  point. 

Rotation  of  the  section,  using  the  TWIST  keyword,  is  done  about  an  axis  that  passes  through  the 
thread  point 

The  thread  point  is  part  of  the  section  definition  and  is  unchanged  if  the  section  is  repeated. 

Record  S6a,  S8a,  or  SlOa:  THETA0,R0,(X0,Y0  or  ZO)  (col.  1-10, 1 1-20, 21-30) 

This  record  contains  the  THETA,R,(X,Y,  or  Z)  coordinates  for  the  section  thread  point.  These  are  the 
cylindrical  coordinates  of  the  point  in  the  section  coordinate  system  which  is  to  be  moved  to  the  location  in 
the  panel  coordinate  system  specified  by  die  AT  keyword.  The  thread  point  is  also  the  point  about  which 
section  scaling  (using  SCALE)  and  section  rotation  (using  TWIST)  is  done.  If  die  AT  keyword  is  not  used 
to  specify  the  translation  of  the  thread  point,  the  thread  point  is  put  at  the  origin  of  the  panel  system 
(default). 

Record  Sll:  AT-<KEYWORD> 

This  record  precedes  the  specification  of  the  section  translation  and  several  flags  controlling  the  respacing 
of  the  panel  in  the  J  direction.  The  translation  of  the  section  definition  is  done  by  specifying  the  location  in 
the  panel  coordinate  system  where  the  section  thread  point  is  to  be  placed.  The  section  points  are  translated 
along  with  the  diread  point  (Figure  6-10).  The  keyword  may  be  omitted,  in  which  case  die  thread  point  is 
placed  at  the  origin  (0.,0.,0.)  of  die  panel  coordinate  system.  Respacing  in  the  J  direction  is  controlled  by 
die  JSPACE  keyword  if  this  record  is  omitted. 

Record  SI  la:  XTHREAD,  YTHREAD,  ZTHREAD,  JBREAK,  NJ,  JSPACE 

TTiis  record  specifies  the  coordinates  in  the  panel  coordinate  system  (PCS)  where  the  section  thread  point  is 
to  be  placed  and  flags  for  controlling  Ae  respacing  process  in  the  J  direction. 

XTHREAD,YTHREAD,ZTHRE  AD  -coordinates  of  diread  point  in  PCS  (col.  1-10, 1 1-20, 21-30) 

The  coordinates  in  die  panel  coordinate  system  of  the  point  where  the  thread  point  of  the  section  is  to 
be  placed.  The  section  points  are  translated  along  with  the  diread  point. 

JBREAK — break  specification  for  the  section  (col.  3 1  -40) 

JBREAK  =  0:  no  break  section 
JBREAK  _  0:  break  section 

This  flag  specifies  that  the  section  is  to  be  treated  as  a  break  section.  This  is  important  only  if  the 
panel  is  to  be  respaced  in  the  J  direction.  A  break  section  means  that  the  curves  used  to  respace  the 
panel  in  the  J  direction  can  have  slope  discontinuities  at  the  point  they  cross  this  section.  Note  that 
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specifying  a  break  section  affects  only  the  definition  of  the  panel  shape  and  does  not  guarantee  a 
l^ce  line  location  at  this  section. 

NJ- number  of  elements  in  J  direction  (col.  41-50) 

A  nonzero  value  for  NJ  specifies  this  section  as  a  spacing  range  in  the  J  direction  and  that  NJ 
elements  are  to  be  respaced  between  this  section  point  and  the  end  of  the  spacing  range.  The  spacing 
range  runs  from  the  current  section  to  the  next  spacing  range  or  to  the  last  section.  This  guarantees 
that  points  lying  on  this  section  curve  will  be  lattice  points.  The  specification  of  a  spacing  range 
overrides  the  default  panel  spacing  established  under  the  keyword  JSPACE  for  that  spacing  range. 

JSPACE  -  spacing  distribution  for  respacing  (col.  51-60) 

JSPACE  =  0:  equal  spacing 

JSPACE  =  ±1:  cosine  spacing 
JSPACE  =  ±2;  sine  spacing 
JSPACE  =  ±3:  equal  spacing 

This  flag  specifies  the  distribution  to  be  used  for  respacing  of  the  element  lattice  in  this  spacing  range 
in  the  J  direction  (Figure  7-6).  All  spacing  distributions  are  defined  with  respect  to  the  arc  length 
along  tite  panel  surface.  Changing  the  sign  of  the  spacing  parameter  reverses  the  direction  of  the 
spacing  distribution.  This  has  an  effect  only  on  sine  spacing  (a  positive  value  corresponds  to  elements 
concentrated  at  edge  1).  Noninteger  values  of  JSPACE  produce  a  spacing  distribution  which  is  a 
weighted  combination  of  the  integer  values  bounding  it  (Figure  7-7). 

Record  S12:  SC  ALE  -  <KEYWORD> 

This  keyword  precedes  the  specification  of  scaling  factors  to  be  applied  to  the  section  points.  If  die 
keyword  is  omitted  no  scaling  is  done  and  record  S12a  is  not  read. 

The  scaling  factors  are  used  to  scale  the  section  points  independently  in  each  of  the  three  panel  coordinate 
directions  (see  Figure  6-10).  This  scaling  is  done  about  the  section  thread  point 

The  keywords  SCALE  and  TWIST  may  be  repeated  any  number  of  times,  and  in  any  order,  to  transform 
the  section  points.  The  scaling  and  twisting  operations  are  done  in  the  order  in  which  they  are  entered.  Note 
that  a  scaling  specification  operates  in  the  PCS  on  the  section  points  after  they  have  been  transformed  by 
any  previous  scaling  and  twisting  operations. 

Record  S12a:  XCALE,YSCALE,ZSCALE  (col.  1-10,  11-20,21-30) 

This  record  specifies  the  three  scaling  fectors  to  be  applied  to  the  section  points.  These  are  the  factors  by 
which  the  section  points  are  scaled  in  each  of  die  three  coordinate  directions.  All  scaling  is  done  about  the 
section  thread  point.  Blank  fields  in  this  card  for  XSCALE,  YSCALE,  or  ZSCALE  default  to  scale  frictors 
of  1.0. 

Example: 

•234567890  12345678901234567890123456789012345678901234567890RULER 
SCALE 

•XSCALE  YSCALE  ZSCALE 
1.  3.3  .25 

This  specifies  a  scaling  of  the  section  points  about  the  thread  point  such  that  the  X  values  are  unchanged, 
the  Y  values  are  scaled  up  by  a  factor  of  3.3  and  the  Z  values  are  scaled  down  by  a  factor  of  4. 

Record  SI3:  TWIST  -  <KEYWORD> 
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The  keyword  TWIST  precedes  the  definition  of  the  axis  of  rotation  (in  the  panel  coordinate  system)  and 
twist  angle  used  to  rotate  the  section  points.  If  the  keyword  is  omitted  no  rotation  is  done  and  record  SI3a 
is  not  read.  Rotations  are  done  about  an  axis  passing  through  the  thread  point  in  the  section  definition  and 
parallel  to  the  specified  direction  (see  Figure  ^10). 

The  keywords  TWIST  and  SCALE  may  be  repeated  any  number  of  times,  and  in  any  order,  to  transform 
the  section  points.  The  twisting  and  scaling  operations  are  done  in  the  order  in  which  they  are  entered.  Note 
that  a  twisting  specification  operates  in  the  PCS  on  the  section  points  after  they  have  been  transformed  by 
any  previous  scding  and  twisting  operations. 

Record  S13a:  XAXIS,  YAXIS,  ZAXIS,  TWIST 

This  record  specifies  dte  rotation  axis  direction  and  rotation  angle  used  to  rotate  the  section  points. 
XAXIS,YAXIS,ZAXIS  -  axis  of  rotation  (col.  1-10, 1 1-20, 21-30) 

The  direction  of  the  axis  of  rotation  for  twisting  the  section  points,  specified  by  a  three  component 
duection  vector  in  the  panel  coordinate  system.  The  rotation  is  done  about  an  axis  passing  through 
the  section  thread  point  parallel  to  this  direction. 

The  components  of  the  direction  vector  may  be  treated  like  direction  cosines,  although  the  specified 
vector  is  normalized  by  the  program  anyway. 

TWIST  -  angle  of  twist  (degrees)  (col.  3 1  -40) 

The  angle  in  degrees  by  which  die  section  points  are  to  be  rotated  about  the  rotation  axis.  The 
positive  sense  of  rotation  is  detennined  by  the  right-hand  rule  about  die  axis. 

Example: 

*234567890  1 23456789012345678901234567890 1234567890 1234567890RULER 

* 

TWIST 

*XAXIS  YAXIS  ZAXIS  TWIST 

0.  1.  0.  10. 

This  specifies  a  10  deg.  Rotation  of  the  section  points  about  an  axis  parallel  to  the  panel  Y  axis  and  panging 
through  the  thread  point. 


7.9  PROPELLER  DATA 

The  propeller  data  (records  R1-R4)  begins  with  the  fust  keyword  PROPELLER,  ending  the  panel 
data.  Each  propeller  specification  must  be  preceded  by  diis  keyword.  If  record  R1  is  omitted,  no  propeller 
effects  are  included  and  records  R1-R4  are  not  read.  A  maximum  of  8  propellers  may  be  defined. 

The  propeller  data  is  used  by  the  program  to  alter  the  boundary  conditions  on  the  configuration 
surface  to  reflect  the  presence  of  one  or  more  propeller  slipstreams  that  modify  the  local  onset  flow.  The 
onset  velocity  at  all  control  points  within  a  slipstream  (upstredm  and  downstream  of  the  propeller  plane) 
will  be  augmented  by  the  velocity  induced  at  that  point  by  the  propeller  acting  as  if  it  were  in  free  space. 
No  account  is  taken  of  the  interference  effect  of  the  configuration  on  tire  propeller.  Note  that  tiiere  must  be 
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a  sufficient  control  point  density  within  the  slipstream  to  properly  reproduce  the  propeller  effects  (see 
Figure  7-10). 

The  slipstream  model  is  based  on  the  propeller  size,  direction,  applied  thrust  and  torque  and  a 
“cross-force”  coefficient  (modeling  the  lifting  downwash  effects  from  the  cross  flow  on  the  propeller).  The 
propeller  and  its  slipstream  are  assumed  to  rotate  on  an  axis  whose  direction  is  specified  in  the  global 
coordinate  system  (Figure  7-9).  The  specification  of  propeller(s)  affects  only  the  flow  conditions,  not  the 
AIC  or  solution  matrices,  and  have  no  impact  on  restarting  the  program. 

The  program  does  not  calculate  any  forces  generated  by  the  propeller(s)  themselves,  only  their 
effect  on  the  configuration.  Velocities  calculated  at  survey  points  within  a  propeller  slipstream  will  include 
the  slipstream  velocity. 

The  propeller  slipstream  definition  data  is  terminated  by  the  keyword  SURVEY,  the  end  of  file  or 
a  blank  line. 

Propeller  Data  Keywords 

PROPELLER  -  Initiates  propeller  definition 
Record  Rl:  PROPELLER  -  <KEYWORD> 

This  keyword  indicates  the  beginning  of  each  propeller  slipstream  specification.  It  must  precede  the 
definition  of  each  (nonimage)  propeller.  A  maximum  of  8  propellers  may  be  defined. 

Record  Rla:  XPROP,YPROP,ZPROP,ALPHAPROP,BETAPROP 

This  record  specifies  the  location  of  the  propeller  center  and  the  direction  of  the  propeller  axis. 

XPROP,YPROP^PROP- coordinates  of  prop  center  (col.  1-10, 11-20,21-30) 

The  global  coordinates  of  the  center  of  the  propeller. 
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PROPELLER  AXIS 
DIRECTION 


P  =  -COS  a  p,op  COS  ^  p,op  ^ 
+  SIN  fi  prop  Y 

+  SIN  a  prop  OOS  fi  prop  ^ 


Figure  7-9  Propeller  Axis  Definition  in  Global  Coordinates 
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^  AXIAL  +  TANGENTIAL 
V  VELOCITY 


PROPELLER  DISC 


AXIAL 

VELOCITY 


PROPELLER  AND  SLIPSTREAM  (SIDE  VIEW) 


INADEQUATE  PANELING  ADEQUATE  PANELING 


REPRESENTATION  OF  SUPSTREAM  EFFECTS 


Figure  7-10  Propeller  Slipstream 
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ALPHAPR0P,BETAPR0P  -  direction  of  propeller  axis  (col.  31-40, 41-50) 

These  two  angles  define  the  direction  of  the  propeller’s  axis  of  rotation,  referenced  to  the  GCS  (see 
Figure  7-9).  The  direction  of  the  propeller  axis  is  independent  of  the  free-stream  angle  of  attack  or 
sideslip.  The  direction  of  die  propeller  axis  determines  both  the  positive  direction  of  slipstream 
rotation  and  the  direction  of  the  slipstream  velocity  (i.e.,  the  propeller  axis  points  in  the  direction  in 
which  thrust  is  developed,  and  opposite  to  the  direction  of  the  slipstream  axial  velocity).  For  example, 
a  propeller  producing  dirust  in  the  -X  direction,  rotating  about  an  axis  parallel  to  the  X  axis,  would 
be  defined  with  ALPHAPROP  =  0,  BETAPROP  =  0. 

Record  Rib:  RPROP,  DIR,  PROPIMAGE 

This  record  specifies  the  radius  of  die  propeller,  its  direction  of  rotation  and  whether  an  image  propeller 
mcists  across  Ae  X-Z  plane  of  symmetry. 

RPROP  -  propeller  radius  (col.  1-10) 

The  radius  of  the  propeller  in  the  same  units  as  the  definition  of  the  configuration  geometry. 

DIR  -  direction  of  propeller  rotation  (col.  1 1  -20) 

DIR  =  + 1 :  positive  direction  of  rotation  (default) 

DIR  =  -1 :  negative  direction  of  rotation 

This  flag  specifies  die  direction  of  rotation  of  the  propeller.  The  positive  direction  of  spin  is  defined 
by  die  right-hand  rule  about  the  propeller  axis  (the  direction  of  the  propeller  axis  is  defined  by  the 
propeller  angles  ALPHAPROP  and  BETAPROP).  See  Fig.  4.8.1. 

PROPIMAGE  -  propeller  image  flag  (col.  21-30) 

PROPIMAGE  =  0:  propeller  has  no  image 
PROPIMAGE  =  1 :  propeller  has  an  image  (default) 

This  flag  specifies  diat  the  propeller  has  an  image  propeller,  reflected  across  the  X-Z  plane  of 
symmetry.  The  axis  of  rotation  of  the  image  propeller  is  defined  by  the  reflection  of  the  axis  of  the 
defined  propeller.  The  image  propeller’s  direction  of  rotation  is  reversed  to  preserve  lateral  symmetry 
(if  the  image  propeller  is  to  rotate  in  the  same  direction,  both  propellers  must  be  explicidy  defined). 

Record  Rlc:  CTHRUST,  CTORQUE,  CCROSSFORCE 

This  record  specifies  the  non-dimensional  coefficients  for  the  thrust  and  torque  ^plied  to  the  propeller  and 
die  cross-force  coefficient  controlling  the  downwash  generated  by  die  propeller.  These  values  must  be 
determined  fiom  the  results  of  other  computations  or  fi’om  experiments.  They  should  reflect  propeller 
parameters  tqipropriate  to  the  flow  conditions  specified. 

CTHRUST  -  propeller  thrust  coefficient  (col.  1-10) 

The  propeller  thrust  coefficient  defined  as  the  ratio  of  propeller  thrust  (force  parallel  to  propeller  axis) 
to  the  area  swept  out  by  the  propeller,  per  unit  dynamic  pressure  (CTHRUST  =  THRUST/ 
(AREA*DYNAM1C  PRESSURE) ). 

CTORQUE  -  propeller  torque  coefficient  (col.  1 1-20) 
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The  propeller  torque  coefficient  defined  as  the  ratio  of  propeller  torque  (moment  about  propeller  axis) 
to  the  area  swept  out  by  the  propeller  times  the  diameter  of  the  propeller,  per  unit  dynamic  pressure 
(CTORQUE  =  TORQUE/(AREA*DYNAMIC  PRESSURE*DIAMETER)  ). 

CCROSSFORCE  -  propeller  cross-force  coefficient  (col.  21-30) 

The  propeller  cross-force  coefficient  defined  as  the  ratio  of  propeller  cross-force  (force  normal  to 
propeller  axis)  to  the  area  swept  out  by  the  propeller  per  unit  dynamic  pressure  (  CCROSSFORCE  = 
CROSSFORCE/(AREA*DYNAMIC  PRESSURE) ).  Note  that  the  cross-force  corresponds  to  the  lift 
and/or  side  force  on  the  propeller  and  is  zero  when  the  propeller  axis  is  aligned  with  the  free-stream. 
This  parameter  should  be  set  based  on  propeller  theory  or  experimental  correlation. 


7.10  SURVEY  DATA 

The  survey  data  (records  V1-V5)  begins  with  the  keyword  SURVEY,  ending  the  panel  data  or  the 
propeller  data,  and  initiating  the  reading  of  records  defining  the  flow  survey  locations.  The  flow  survey  is 
optional,  and  is  omitted  if  the  keyword  SURVEY  is  not  present.  The  flow  survey  definition  data  is 
terminated  by  the  end  of  file  or  a  blank  line. 

The  user  must  be  careful  if  the  flow  survey  locations  are  near  the  configuration  surface.  This  is 
due  to  the  constant  strength  doublet  panels  used  on  the  body  surface,  which  may  induce  unrealistic 
velocities  if  survey  points  are  placed  closer  than  an  element  length  of  the  surface.  See  Ref.  4  for  additional 
information  on  flow  surveys. 


Survey  Data  Keywords 

Initiates  survey  deflnition 
Precedes  definition  of  survey  points 
Initiates  survey  panel  definition 
Indicates  control  points  as  survey  points 
Indicates  lattice  points  as  survey  points 

Record  VI:  SURVEY  -  <KEYWORD> 

The  keyword  SURVEY  indicates  the  beginning  of  the  definition  of  flow  survey  points  at  which  the 

program  is  to  calculate  flow  quantities.  Any  pending  lists  are  terminated  by  this  keyword. 

The  locations  of  the  survey  points  may  be  specified  in  two  ways. 

1 .  The  survey  points  may  be  defined  by  a  list  of  arbitrary  points.  This  option  may  be  selected  by  entering 
the  keyword  POINTS  in  the  next  record. 

2.  A  survey  grid  may  be  defined  by  a  survey  panel.  A  survey  panel  is  specified  in  the  same  way  as  a 
configuration  panel,  taking  advantage  of  the  already  established  capability  to  generate  surface  grids  of 
arbitraiy  shape.  This  option  may  be  selected  by  entering  the  keyword  PANEL  in  the  next  record. 
Either  the  control  points  or  the  lattice  points  of  the  survey  panel  may  be  selected  as  the  survey 
locations,  by  entering  the  keyword  CONTROL  or  the  keyword  LATTICE  in  the  record  following  the 
PANEL  keyword. 


SURVEY 

POINT 

PANEL 

CONTROL 

LATTICE 
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The  two  methods  of  defining  survey  locations  may  be  used  in  combination,  with  one  limitation.  The 
keyword  POINT,  preceding  a  list  of  arbitrary  survey  points,  can  only  be  used  once  in  the  dataset  and  must 
come  before  a  PANEL  keyword.  In  other  words  there  can  only  be  one  list  of  arbitrary  survey  points  and  it 
must  come  before  any  survey  panels.  As  many  survey  panels  as  required  may  be  defined,  up  to  a  maximum 
of  25.  The  total  number  of  survey  points  (including  the  points  used  by  survey  panel  grids)  may  not  exceed 
1000. 

Record  V2:  POINT  -  <KEYWORD> 

This  keyword  precedes  records  specifying  an  arbitrary  list  of  survey  points.  This  list  may  be  terminated  by 
the  keyword  PANEL  or  the  end  of  file  (or  a  blank  line). 

Record  V2a:  XSURV,YSURV,ZSURV  (col.  1-10,  1 1-20, 21-30) 

This  record  contains  the  global  coordinates  of  points  at  which  flow  quantities  are  to  be  calculated.  One 
point  is  entered  per  record,  up  to  the  maximum  of  1000  survey  points.  Survey  points  should  not  lie  on  or 
very  close  to  the  surface  of  the  configuration. 

Record  V3:  PANEL  -  <KEYWORD> 


This  keyword  initiates  the  definition  of  a  survey  panel.  The  survey  panel  is  defined  in  the  same  way  as  a 
normal  body  panel,  with  the  addition  of  another  keyword.  The  choice  of  control  points  or  lattice  points  as 
the  survey  points  is  determined  by  the  keyword  entered  on  the  following  record. 

Record  V4:  CONTROL  -  <KEYWORD> 

This  keyword  precedes  the  definition  of  a  survey  panel  whose  control  points  (center  points)  form  the 
survey  points.  The  survey  panel  is  then  defined  in  the  same  way  as  any  other  panel,  using  records  P2-P9 
and  S1-S13.  Panel  parameters  which  are  meaningless  may  be  defaulted  or  entered  with  zeros.  The  number 
of  survey  points  defined  by  the  panel  is  the  same  as  the  number  of  control  points  in  the  panel  (NJ  x  NK 
points). 

Record  V5:  LATTICE  -  <KEYWORD> 

This  keyword  precedes  the  definition  of  a  survey  panel  whose  lattice  points  (comer  points)  form  the  survey 
points.  The  survey  panel  is  then  defined  in  the  same  way  as  any  other  panel,  using  records  P2-P9  and  Sl- 
S13.  Panel  parameters  which  are  meaningless  may  be  defaulted  or  entered  with  zeros.  The  number  of 
survey  points  defined  by  the  panel  is  the  same  as  the  number  of  lattice  points  in  the  panel  (NJ  +  1  x  NK  +  1 
points). 


7.11  EXAMPLE  DATASETS 


Four  example  datasets  are  presented  in  this  section  to  illustrate  the  input  dataset  stracture  to 
QUADPAN.  The  first  two  datasets  pertain  to  a  very  simple  wing  and  demonstrate  the  use  of  rectangular 
sections  and  the  respacing  options.  The  third  dataset  contains  an  example  of  the  use  of  cylindrical  sections. 
The  final  dataset  illustrates  additional  program  capabilities  on  a  more  complex  wing/body/fin 
configuration. 
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7.1  LI  Example  I  -  Rectangular  Wing 

The  first  example  is  a  simple  symmetrical  cross  section  wing  of  rectangular  planform,  as 
illustrated  in  Figure  7-11.  The  wing  aspect  ratio  is  2.0  with  a  chord  of  1.0  and  a  20%  thickness/chord  ratio. 

This  example  illustrates  the  layout  of  the  model  geometry  into  panels  and  sections,  and  the 
assembly  of  that  information  into  QUADPAN  format.  This  dataset  does  not  contain  any  transformations  or 
respacing  information,  so  the  comer  points  of  the  resulting  mesh  are  identical  to  the  points  which  are  input. 
The  defined  lattice  will  be  far  too  crude  to  use,  but  will  be  respaced  to  more  reasonable  density  in  the  next 
example. 


The  dataset  is  listed  in  Figure  7-13,  and  is  shown  with  record  numbers  in  columns  72-80  for 
instructional  purposes.  These  are  not  used  by  the  program  and  are  not  included  in  actual  datasets. 
Comments  have  been  used  liberally  to  label  fields  in  the  input  data,  and  are  recommended  for  all  datasets. 


7.1 1 A  A  Model  Layout  - 

One  of  the  first  things  that  must  be  done  in  order  to  create  a  QUADPAN  model  is  panel  layout 
Referring  to  the  drawing  of  the  wing,  the  basic  logic  goes  as  follows: 

•  The  configuration  is  laterally  symmetric,  so  only  the  right  side  will  be  modeled  and  image  panels  will 
be  used  to  represent  die  left  side. 

•  In  order  to  eliminate  holes  in  the  geometry,  the  wingtip  will  be  closed  by  a  simple  flat  closure. 

•  In  order  to  have  the  wing  produce  lift  a  vortex  wake,  whose  forward  edge  is  coincident  with  the  wing 
trailing  edge  and  whose  aft  edge  is  far  downstream,  will  be  used. 

•  The  presence  of  the  wake  panel  at  the  trailing  edge  dictates  that  the  wing  must  have  panel  edges  at  the 
trailing  edge  (panels  must  only  abut  at  their  edges).  In  addition,  the  wing  will  be  made  up  of  upper  and 
lower  surface  panels  to  simplify  the  arrangement  of  the  elements  and  strips  of  elements  in  the  output. 

7.11.1.2  Global  Data- 

The  first  section  of  the  QUADPAN  dataset  is  the  global  data,  consisting  of  records  Gl-GS.  The 
first  record  is  the  case  title,  which  should  be  descriptive  of  the  geometry.  In  the  case  of  restarts,  this 
information  cannot  change  from  run  to  run.  The  next  record  is  the  run  ID,  describing  the  flow  conditions, 
or  additional  data  about  the  run.  The  Mach  number  for  this  case  is  0.2  and  run  flags  are  set  to  give  a  check 
run  with  all  printout  and  a  dump  file.  The  abutment  parameters  are  set  to  give  an  absolute  matching 
tolerance  of  0.002  for  the  panel  abutment  search.  This  value  is  somewhat  large  considering  the  size  of  this 
wing  (X,Y,Z  are  all  of  order  1 .0),  but  is  sufficient  for  the  sparse  paneling  used. 

The  reference  quantities  for  this  case  are  given  in  record  G4,  including  the  wingspan  (which  is  2.0 
for  the  full  wing)  and  the  moment  reference  center  (which  has  been  placed  on  the  quarter  chord.  The  two 
flow  conditions  to  be  analyzed  (after  check  runs  are  done  and  the  run  flag  is  changed  to  1)  are  angles  of 
attack  of  0.0  and  5.0  degrees. 
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7.11.1.3  Defining  The  Geometry  - 


Four  panels  will  be  created  to  represent  this  geometry.  These  are  shown  in  Figure  7-12. 

Panel  1  -  Upper  Wing  (from  centerline  to  tip) 

Panel  2  -  Lower  Wing  (from  centerline  to  tip) 

Panel  3  -  Wing  Tip  Closure  (closes  off  tip) 

Panel  10  -  Wing  Wake  (with  Kutta  condition  at  wing  T.E.) 

The  panel  ID  numbers.may  be  selected  by  the  user  to  aid  in  panel  identification.  In  this  case  panel 
ID  numbers  1-3  will  be  used  for  the  wing  and  tip  panels  and  panel  ID  number  10  will  be  used  for  the  wake 
panel. 

Panel  1  -  Upper  Wing 

Each  panel  definition  begins  with  the  keyword  PANEL,  followed  by  the  panel  ID  number  and 
title.  The  next  record  (P2)  selects  the  type  of  boundary  condition,  exterior  surface,  disposition  of  forces  and 
existence  of  an  image  for  the  panel.  In  this  case,  the  TYPE  is  set  to  0  for  a  body  panel  with  a  hydrodynamic 
boundary  condition  (no  flow  through  the  surface).  The  WET  flag  is  set  to  1  so  that  the  panel  “positive” 
surface  will  correspond  to  the  exterior  surface.  The  FORCE  and  IMAGE  flags  are  set  to  include  panel 
forces  into  the  total  forces  and  to  generate  an  image  panel  across  the  plane  of  symmetry. 

The  panel  geometry  can  be  input  in  several  ways,  but  the  most  convenient  method  is  to  describe 
the  panel  such  that  die  elements  will  be  grouped  into  chordwise  strips  (leading  edge  to  trailing  edge)  going 
from  root  to  tip.  In  this  case,  with  only  one  spanwise  element,  the  latter  distinction  is  lost,  but  example  2 
will  expand  on  this.  This  grouping  is  purely  a  function  of  the  ordering  of  the  input  points  and  is  only  for 
die  purpose  of  arranging  the  program  output  into  a  convenient  form. 

To  group  the  elements  in  this  fashion,  the  panel  geometry  will  be  described  with  chordwise 
sections.  Two  sections  are  needed  to  describe  the  wing  panel  —  one  at  the  centerline  root,  and  one  at  the  tip. 
This  is  illustrated  in  Figure  7-12.  TTie  keyword  SECTION  is  used  to  start  the  section  definition,  along  with 
the  keyword  RECT  to  indicate  that  a  new  section  is  being  input  in  X,  Y,  Z  coordinates.  The  three  points 
used  to  describe  the  section  are  simply  the  lattice  points  on  the  upper  wing  running  from  leading  edge  to 
trailing  edge  along  the  centerline  (Y  =  0).  The  second  section  consists  of  the  corresponding  points  at  the  tip 
(Y=1.0). 


The  two  sections  define  the  K  and  J  directions  for  the  panel  (see  Fig.  4.10).  The  K  direction 
always  goes  in  the  direction  of  the  points  in  the  section,  while  the  J  direction  always  runs  from  first  to  last 
section.  The  panel  “positive”  surface  is  defined  by  the  cross  product  of  the  K  and  J  directions,  and 
corresponds  to  the  exterior  surface  for  WET  =  1.  Since  this  is  indeed  the  exterior  surface,  the  choice  of 
WET  ~  1  is  correct. 
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Figure  7-11  Rectangular  Wing 
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TIP  CLOSURE  PANEL 
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Figure  7-13  Example  1  Dataset  (1  of  2) 
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Figure  7-14  Example  1  Dataset  (2  of  2) 
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Panel  2  -  Lower  Wing 

This  panel  is  described  in  an  identical  fashion  as  the  upper  wing  panel  to  put  the  strips  and 
elements  in  the  same  order.  As  can  be  seen  in  Figure  7-12,  the  panel  “positive”  surface,  defined  by  the 
cross  product  of  the  K  and  J  directions  points  upwards.  This  is  incorrect  -  the  exterior  surface  for  this  panel 
is  the  lower  surface.  The  correct  outward  surface  is  selected  by  setting  WET  =  -1,  informing  the  program  to 
use  the  opposite  surface  for  the  exterior. 

Panel  3  -  Tip  Closure 

The  tip  closure  panel  is  described  by  two  sections,  corresponding  to  the  outboard  section  of  the 
upper  wing  panel  and  the  outboard  section  of  the  lower  wing  panel.  The  panel  “positive”  surface,  given  by 
the  cross  product  of  the  K  and  J  panel  directions,  or  the  direction  of  the  1234  panel  edge  order,  corresponds 
to  the  exterior  surface.  The  choice  of  WET  =  1  is  correct  for  the  tip  panel. 

Panel  10 --Wing  Wake 

The  wing  wake  panel  uses  an  ID  number  of  10  to  distinguish  it  from  the  body  panels  (this  can  be 
convenient  in  large  datasets,  to  identify  wake  panels  with  a  different  set  of  numbers  for  clarity).  The  wing 
wake  panel  is  used  to  enforce  the  Kutta  condition  on  the  wing  by  placing  one  of  its  edges  coincident  with 
the  trailing  edge.  Any  of  the  four  edges  of  the  panel  could  be  used  for  establishing  the  Kutta  condition,  so 
long  as  the  TYPE  specifies  the  edge  to  be  used  In  order  to  keep  the  wake  panel  sections  streamwise  (for 
our  convenience,  to  match  the  other  panels)  a  TYPE  =  4  will  be  used  for  this  panel.  In  this  case  edge  4, 
corresponding  to  the  first  point  in  each  section,  will  be  placed  at  the  wing  trailing  edge.  The  opposite  edge 
of  the  wake  will  be  placed  100  semispans  downstream  to  avoid  interference  with  the  lifting  wing.  The 
wake  panel  is  described  by  two  sections,  a  centerline  section  and  a  tip  section.  Each  section  consists  of  one 
point  on  the  wing  trailing  edge  and  another  point  at  the  aft  edge  of  the  wake. 

The  panel  WET  for  a  wake  does  not  strictly  need  to  be  set,  as  a  wake  is  wetted  on  both  its 
“positive”  and  “negative”  surface  and  the  program  will  hook  everything  up  correctly  regardless  of  how 
WET  is  input.  The  WET  flag  does  control  the  sense  of  positive  GAMMA  (the  doublet  strength)  that  comes 
out  of  the  program,  and  can  be  set  to  give  positive  GAMMA  for  positive  lift  if  the  panel  “upper”  surface 
(as  set  by  (K  X  J)  and  WET)  corresponds  to  the  direction  of  positive  lift.  This  is  a  matter  of  convenience 
only. 


7AL2  Example  2  -  Rectangular  Wing  With  Respacing 

The  second  example  is  based  on  the  same  symmetrical  wing  with  rectangular  platform  used  in 
example  1,  as  illustrated  in  Figure  7-15.  The  purpose  of  the  second  example  dataset  is  to  illustrate  the  use 
of  panel  respacing,  repeated  sections,  and  section  transformations. 

The  layout  of  the  model  geometry  is  identical  to  the  previous  example  and  will  consist  basically  of 
the  same  panels  and  sections.  The  difference  between  these  datasets  is  that  the  QUADPAN  panel  respacing 
options  have  been  used  in  example  2  to  make  a  denser  lattice  of  elements  form  the  same  geometry  data.  In 
this  case,  the  lattice  will  be  respaced  to  give: 

•  Three  equally  spaced  elements  spanwise  on  the  wing, 

•  Five  cosine  spaced  elements  chordwise  on  the  wing.  This  concentrates  elements  toward  the  leading 
and  trailing  edges. 
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This  lattice  is  still  not  sufficiently  refined  for  accurate  analysis,  where  normally  at  least  8  elements 
should  be  used  to  define  one  side  of  a  lifting  surface. 

The  dataset  is  listed  in  Figure  7-16,  and  is  shown  with  record  numbers  in  columns  72-80  for 
instructional  purposes.  These  are  not  used  by  the  program  and  are  not  usually  included  in  actual  datasets. 
Comments  have  been  used  liberally  to  label  fields  in  the  input  data,  and  are  recommended  for  all  datasets. 


7.1 1 .2.1  Model  Layout  - 

The  basic  layout  of  the  model  is  unchanged  forni  the  previous  example.  Four  panels  are  used  to 
represent  the  wing  upper  and  lower  surface,  the  tip  closure,  and  the  wing  wake.  The  difference  for  this 
dataset  is  that  panel  respacing  must  be  added  to  create  a  denser  lattice  from  the  sparse  input  geometry.  It  is 
important  that  all  adjacent  panel  edges  have  the  same  number  and  distribution  of  elements.  This  matching 
of  elements  at  panel  edges  is  done  to  avoid  holes  in  the  model,  and  to  maximize  the  accuracy  of  the 
analysis.  It  is  also  particulary  important  that  the  spacing  of  elements  on  the  wing  wake  match  the  elements 
on  the  wing  at  the  trailing  edge.  In  addition,  the  respacing  applied  to  the  wing  upper  and  lower  surfaces 
must  be  done  such  that  the  lattice  elements  on  the  upper  and  lower  surfaces  near  the  trailing  edge  be 
identical  (or  nearly  identical)  in  size.  This  is  done  to  maximize  the  accuracy  of  the  Kutta  condition. 

With  only  four  panels  to  consider,  this  matching  of  elements  at  panel  edges  is  simple.  Since  the 
points  used  to  define  the  geometry  match  exactly  at  panel  edges,  all  that  is  necessary  is  that  the  respacing 
used  must  agree  in  number  and  distribution. 


7.11.2.2  Global  Data- 

The  first  section  of  the  QUADPAN  data  set  shown  in  Figure  7-16  is  the  global  data,  consisting  of 
records  G1-G5.  This  is  the  same  information  as  provided  for  the  first  example  dataset,  except  that  the  case 
title  has  been  changed  to  reflect  the  updated  geometry.  The  run  flag  has  been  changed  to  1  to  run  the  flow 
analysis. 


7.1 1 .2.3  Respacing  the  Geometry 

The  same  four  panels  from  example  1  will  be  used  to  represent  this  geometry.  These  are  shown  in 
Figure  7-12. 

Panel  1  -  Upper  Wing  (from  centerline  to  tip) 

Panel  2  -  Lower  Wing  (from  centerline  to  tip) 

Panel  3  -  Wing  Tip  Closure  (closed  off  tip) 

Panel  10  -  Wing  Wake  (wWi  Kutta  condition  at  wing  T.E.) 


Panel  1  -  Upper  Wing 

The  panel  definition  for  the  upper  wing  is  identical  with  that  in  the  previous  example  with  the 
exception  of  the  JSPACE  and  KSPACE  panel  respacing  specifications  (records  P8,  P8A,  and  P9,  P9A). 
These  have  been  added  to  the  panel  definition  immediately  prior  to  the  first  SECTION  keyword. 
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As  discussed  above,  panel  respacing  will  be  used  on  the  wing  to  obtain  three  elements  equally 
spaced  spanwise,  and  five  elements  cosine  spaced  chordwise.  Since  the  directions  spanwise  and  chordwise 
have  no  direct  meaning  in  QUADPAN,  where  a  panel  can  be  described  in  a  number  of  different  ways,  the 
user  must  first  decide  what  spacing  must  be  applied  along  the  J  and  K  panel  directions.  In  this  case 
spanwise  corresponds  to  the  J  panel  direction,  and  chordwise  to  the  K  panel  direction  (see  Figure  7-12). 

The  optional  keywords  JSPACE  and  KSPACE  are  used  to  respace  the  panel.  The  spacing 
distribution  for  the  J  direction  is  specified  to  be  0.  for  equal  spacing  spanwise,  and  the  spacing  distribution 
for  the  K  direction  is  specified  to  be  1  for  cosine  spacing  chordwise  (actually  this  gives  cosine  spacing 
based  on  arc  length  along  the  wing  surface). 

The  respaced  panel  is  shown  in  Figure  7-15.  Notice  that  the  wing  no  longer  has  a  diamond  cross 
section,  instead  it  has  a  smooth  parabolic  surface.  This  is  due  the  respacing  process,  where  a  spline  curve 
has  been  fit  through  the  input  points  to  generate  the  respaced  points.  If  it  was  desired  to  preserve  the 
diamond  cross  section  of  the  wing,  a  break  point  should  be  specified  for  the  middle  point  in  each  wing 
section  to  permit  a  slope  discontinuity  there. 

Panel  2  -  Lower  Wing 

The  lower  surface  panel  is  defined  in  a  similar  manner  as  it  was  the  first  example  dataset,  except 
that  a  repeated  section  is  used  to  obtain  the  tip  section  by  translation  of  the  root  section.  In  addition  panel 
respacing  has  been  specified  for  both  the  K  and  J  panel  directions  to  match  the  upper  wing  panel  defined 
above.  This  respacing  has  been  done  differently  from  that  used  for  the  upper  wing  to  illustrate  the  use  of 
spacing  intervals. 

Looking  at  the  lower  wing  panel  definition  in  Figure  7-16,  the  first  section  is  the  same  as  that  used 
in  the  previous  dataset,  except  that  section  respacing  has  been  specified  by  placing  a  5  in  the  fifth  field  and 
a  1  in  the  sixth  field  of  the  record  containing  the  first  point  in  the  section.  This  specifies  that  a  spacing 
interval  start  with  this  point  and  that  five  elements  be  respaced  in  this  interval  using  a  cosine  spacing 
distribution.  The  spacing  interval  extends  to  the  next  spacing  interval  specification,  of  to  the  end  of  the 
section.  In  this  case,  there  are  not  further  specifications  so  the  interval  goes  to  the  end  of  the  section. 

The  first  section  ends  with  the  keyword,  AT,  which  is  used  here  to  specify  respacing  in  the  J 
direction  (from  section  to  section).  The  AT  keyword  is  normally  used  to  defme  translation  of  the  section 
points  by  moving  the  thread  point  (which  defaults  to  the  origin  of  the  section  coordinates  if  no  THREAD 
keyword  and  coordinates  are  given)  and  the  section  points  to  correspond  to  the  point  specified  by  the  AT 
keyword.  In  this  case,  since  AT  specifies  (0.,0, 0.),  no  translation  is  done.  The  3  in  the  fifth  field  and  the  0. 
in  the  sixth  field  of  the  AT  speciftcation  defines  the  beginning  elements  will  be  respaced  with  equal 
spacing  distribution.  The  J  respacing  interval  extends  to  the  next  specified  interval  or  the  last  section,  as  it 
does  in  this  case. 

The  second  section  is  specified  using  a  repeated  section.  This  is  done  by  omitting  the  keyword 
RECT  or  CYL  and  the  section  points.  The  previous  section  definition  will  be  used,  including  all  respacing 
information  for  the  K  direction.  In  order  to  move  the  previous  section  definition,  which  was  defined  at  the 
wing  root,  the  AT  point  for  this  section  specifies  that  the  section  thread  point  (tiie  origin,  by  default)  be 
moved  to  the  leading  edge  of  the  tip  (0.,  1  .,0,). 

Panel  3  -  Tip  Closure 

As  in  the  first  example  dataset,  the  tip  closure  panel  is  described  by  two  sections,  one  from  the 
outboard  section  of  the  upper  wing  panel  and  one  from  the  outboard  section  of  the  upper  wing  panel  and 
one  from  the  outboard  section  of  the  lower  wing  panel.  For  this  example  the  tip  panel  will  remain  a  simple 
closure  panel,  and  little  or  no  detail  of  the  tip  flow  is  desired.  In  this  case,  only  respacing  in  the  chordwise 
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direction  is  necessary.  Since  the  chordwise  direction  corresponds  to  the  K  direction,  this  is  done  by  adding 
the  keyword  KSPACE,  and  respacing  with  five  elements  using  a  cosine  distribution. 

Panel  10  -  Wing  Wake 

The  wing  wake  panel  is  identical  with  the  wake  panel  in  the  first  example  with  the  addition  of  a 
respacing  specification  in  the  J  direction.  The  elements  on  the  wake  must  match  the  upper  and  lower 
surface  wing  elements  to  establish  the  Kutta  condition  on  the  wing  trailing  edge.  Since  the  trailing  edge  of 
the  wing  corresponds  to  edge  4  on  the  wake,  running  in  J  direction,  the  keyword  JSPACE  is  used  to 
respace  the  wake  panel.  Respacing  is  specified  to  put  three  elements  with  equal  spacing  across  the  width  of 
the  wake  panel. 


Figure  7- 1 5  Rectangular  Wing  Widi  Respacing 
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Figure  7-16  Example  2  Dataset  (1  of  2) 
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Figure  7-17  Example  2  Dataset  (2  of  2) 
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7.11.3  Example  3  -  Cylindrical  Fuselage 

The  third  example  is  a  fuselage-like  body  of  revolution  consisting  of  a  cylindrical  center  section 
with  ellipsoidal  fore  and  aft  bodies.  The  ellipsoidal  ends  are  each  half  of  an  ellipsoid  whose 
length/diameter  ratio  is  2:1.  The  configuration  is  illustrated  in  Figure  7-18,  The  purpose  of  this  example 
dataset  is  to  illustrate  the  use  of  cylindrical  section  to  define  panels. 

The  dataset  is  listed  in  Figure  7-20,  and  is  shown  with  record  numbers  in  columns  72-80  for 
instructional  purposes.  These  are  not  used  by  the  program  and  are  not  usually  included  in  actual  datasets. 
Comments  have  been  used  liberally  to  label  fields  in  the  input  data,  and  are  recommended  for  all  datasets. 

7.11.3.1  Model  Layout- 

The  first  decision  to  be  made  in  model  layout  for  this  (or  any)  configuration  concerns  the  use  of 
symmetry.  In  this  case,  the  fuselage  is  laterally  symmetric,  so  only  the  right  side  will  be  modeled.  Image 
panels  will  be  used  to  represent  the  left  side. 

The  fuselage  geometry  could  be  modeled  in  several  ways: 

•  As  tfiree  panel  -  a  forebody,  a  centerbody,  and  an  aftbody.  This  has  the  advantage  that,  if  respacing  is 
desired,  the  centerbody  shape  and  lattice  loctions  are  not  affected  by  the  splines  and  spacing 
distributions  used  to  represent  the  forebody  and  aftbody.  The  disadvantage  of  this  model  is  that  the 
dataset  is  longer. 

•  As  one  panel  ~  the  forebody,  centerbody,  and  aftbody  are  all  combined  into  one  panel.  In  order  to 
preserve  control  of  the  shape  and  lattice  spacing,  break  sections  and  spacing  sections  could  be  used. 
This  has  the  advantage  that  it  produces  a  shorter  dataset. 

For  this  example,  the  single  panel  representation  will  be  used.  The  lattice  spacing  for  this  case  will  be 
selected  so  respacing  gives: 

•  Six  equally  spaced  elements  around  the  right  half  of  the  circular  cross  section. 

•  A  spacing  distribution  along  the  length  of  the  body  that  gives  six  elements  on  the  forebody 
(concentrated  near  the  nose),  four  elements  equally  spaced  on  the  centerbody,  and  six  elements  on  the 
aftbody  (concentrated  near  the  aft  end). 

This  element  distribution  should  give  reasonably  accurate  results  for  this  geometry. 


7.11.3.2  Global  Data - 

The  global  data  for  this  dataset  is  similar  to  that  for  the  first  two  examples,  consisting  of  records 
G1-G5.  The  case  title  has  been  changed  to  be  descriptive  of  the  fuselage  geometry.  This  case  is  set  up  for 
incompressible  flow  (MACH=0.)  and  the  run  flags  are  set  to  give  a  geometry  generation  run  with 
minimum  printout  and  a  dump  file.  This  run  configuration  should  be  used  initially  to  validate  the  dataset  in 
conjunction  with  the  plotting  utility.  The  abutment  parameters  are  set  to  give  an  absolute  matching 
tolerance  of  0.002  for  the  panel  abutment  search. 
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The  reference  quantities  for  this  case  are  given  in  record  G4.  The  frontal  area  has  been  used  for 
the  reference  area,  and  1.0  for  the  remaining  reference  quantities.  The  moment  reference  center  has  been 
placed  at  the  center  of  the  fuselage.  A  single  flow  condition  is  specified  -  an  angle  of  attack  of  0.0  degrees. 


7.11.3.3  Defining  The  Geometry  - 

As  discussed  above,  a  single  panel  will  be  created  to  represent  the  fuselage  geometry.  The 
completed  mesh  is  shown  in  Figure  7-19  and  the  dataset  is  illustrated  in  Figure  7-20.  A  large  explanatory 
comment  has  been  used  in  the  dataset  for  documentation.  This  can  be  helpful,  especially  when  the  paneling 
or  spacing  is  difficult  to  follow. 


GEOMETRY  OF  CYLINDRICAL  FUSELAGE 


Figure  7-18  Cylindrical  Fuselage 
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CYLINDRICAL  FUSELAGE  WITH  ELLIPSOIDAL  ENDS  5/12/83  EXAMPLES 
AZIMUTH  »-50.0  ELEVATION  =  20.0 


Figure  7-19  Mesh  for  Fuselage 
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Figure  7-20  Example  3  Dataset  (1  of  3) 
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Figure  7-2 1  Example  3  Dataset  (2  of  3) 
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Figure  7-22  Example  3  Dataset  (3  of  3) 
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The  panel  definition  begins  with  the  keyword  PANEL,  followed  by  the  panel  ID  number  and  title. 
The  following  record  selects  the  boundary  condition,  exterior  surface,  disposition  of  forces,  and  existence 
of  an  image  for  the  panel.  In  the  case,  the  TYPE  is  set  to  0  for  a  body  panel  with  an  impermeable  boundary 
condition.  The  WET  flag  is  set  to  -I  to  obtain  the  proper  exterior  surface.  The  FORCE  and  IMAGE  flags 
are  set  to  include  panel  forces  into  the  total  forces  and  to  generate  an  image  panel  across  the  plane  of 
symmetry. 

Since  the  fuselage  cross  section  is  circular  throughout  the  body,  two  things  can  be  done  to 
simplify  the  dataset.  First,  cylindrical  section  definitions  can  be  used.  This  has  the  advantage  that,  due  to 
the  special  properties  of  cylindrical  section,  only  two  points  need  be  input  to  describe  a  circular  cross 
section.  In  this  case,  the  points  correspond  to  the  end  points  of  the  half  circle.  The  second  thing  that  can  be 
done  is  to  represent  the  body  with  repeated  sections,  scaled  and  translated  from  the  first  circular  cross 
section  definition.  This  is  done  in  the  dataset,  where  the  first  cross  section  is  entered  with  a  radius  of  025, 
corresponding  to  the  maximum  radius  on  the  fuselage.  This  section  is  scaled  down  to  a  zero  radius  for  the 
nose  section,  and  again  scaled  and  translated  to  obtain  all  succeeding  sections  back  to  the  aft  end  of  the 
body.  See  Figure  7-18.  Each  scaling  is  independent  of  the  previous  scalings,  operating  only  on  the  basic 
section  definition  with  a  radius  of  0.25. 

In  order  to  respace  the  forebody,  a  spacing  interval  in  the  J  direction  has  been  specified  starting 
with  the  first  section.  This  has  been  done  by  placing  a  6  in  the  fifth  field  an  a  2.  in  the  sixth  field  of  the  AT 
specification  of  the  section.  This  indicates  that,  in  the  is  spacing  interval  which  runs  from  the  first  section  at 
X=0.  to  the  section  at  X^.5,  six  elements  will  be  placed  in  a  sine  distribution  which  concentrates  element 
near  the  first  section  (the  nose). 

The  section  at  X^.5  contains  a  break  specifrcation  as  well  as  another  spacing  interval.  The  break 
specification  for  this  section  is  to  force  the  splines  used  for  respacing  in  the  J  direction  to  give  straight  lines 
on  the  centerbody.  The  spacing  interval  sp)ecification  ends  the  forebody  spacing  interval  and  begins  a 
spacing  interval  that  puts  four  equally  spaced  elements  along  the  centerbody.  The  section  at  X==1.5  contains 
a  break  specification,  ends  the  centerbody  spacing  interval  and  begins  the  final  spacing  interval  along  the 
aftbody.  The  spacing  for  the  aftbody  is  symmetrical  to  the  spacing  used  on  the  forebody.  Again,  six 
elements  have  been  specified,  but  this  time  a  -2.  distribution  has  been  used,  to  concentrate  elements  near 
the  last  section  (the  aft  end). 

Respacing  around  the  circular  cross  section  is  done  using  the  KSPACE  keyword.  Six  elements, 
using  and  equal  spacing  distribution,  have  been  specified. 

As  can  be  seen  in  Figure  7-18,  the  panel  “positive”  surface,  defined  by  the  cross  product  of  the  K 
and  J  directions  points  inwards.  This  is  incorrect,  and  the  correct  outward  surface  is  selected  by  setting 
WET==-1,  informing  the  program  to  use  the  opposite  surface  for  the  exterior.  The  completed  surface  mesh, 
after  respacing  is  shown  in  Figure  7-19. 

The  only  disadvantage  of  this  choice  of  panel  definition  is  that  the  sections  are  defined  around  the 
body  in  “hoops,”  ordering  the  elements  in  the  output  in  the  same  fashion.  This  could  be  somewhat  of  an 
inconvenience  if  the  pressure  distribution  along  the  body  is  the  subject  of  the  analysis.  The  alternative  way 
to  define  the  body,  with  sections  running  along  the  length  of  the  body  from  nose  to  tail,  has  the 
disadvantage  that  cylindrical  sections  can  no  longer  be  used.  In  this  case,  a  number  or  rectangular  section 
“stringer”  would  have  to  be  defined  at  various  circumferential  angles  to  ensure  that  the  cross  section  is 
circular. 


185 


7.11.4  Example  4  -  Fuselage,  Wing,  and  Tail 


This  example  is  a  typical,  although  brief,  dataset  which  describes  a  complete  configuration.  It 
represents  the  sort  of  dataset  which  the  user  will  encounter  in  practice.  A  given  configuration  can  be 
described  in  a  variety  of  different  ways  because  of  the  flexibility  of  the  QUADPAN  input  package.  The 
dataset  in  this  example  is  intended  to  illustrate  a  wide  range  of  input  features.  Therefore,  some  portions  of 
the  configuration  could  have  been  defined  as  easily  without  using  all  the  features  which  have  been  used. 
The  user  should  remember  that  the  panel  and  section  scaling,  translating,  and  rotating  features  have  been 
provided  for  convenience  when  a  configuration  has  been  defined  in  multiple  reference  fiames.  In  many 
practical  situations,  complex  models  can  be  constructed  without  using  any  of  these  features. 

The  configuration  on  which  this  example  is  based  is  shown  in  Figure  7-23  and  has  the  following 
characteristics: 

•  The  wings  and  fin  have  identical  symmetric  biconvex  sections  and  have  zero  thickness  at  the  tips. 

•  The  fuselage  is  a  circular  cylinder  with  a  conical  nose. 

•  There  is  a  short  boattail  which  tapers  to  the  diameter  of  die  exhaust. 

Since  the  configuration  is  symmetric  across  die  X-Z  plane,  the  geometry  will  be  defined  by  only 
explichy  enterig  the  right  hand  side.  The  use  of  symmetry  will  also  save  large  amounts  of  computer  time 
when  miming  the  case. 
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SIDE  VIEW 


Figure  7-23  Complex  Test  Case 
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Figure  7-24  Definition  Wing/Body  Intersection 
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7.1 1 .4.1  Model  Layout  - 


As  a  result  of  the  options  available  to  do  geometry  generation  with  QUADPAN,  there  are  many 

possible  arrangements  of  panels  that  may  be  used  to  represent  this  configuration.  The  arrangement  used  in 

this  example  is  based  on  the  following  considerations: 

•  The  wing  and  fin  are  most  conveniently  modeled  as  separate  panels  because  the  direction  of  the 
sections  which  are  convenient  for  defining  them  is  different  from  the  section  direction  which  is 
convenient  for  the  fuselage. 

•  The  need  to  have  wakes  attached  to  the  trailing  edges  of  the  lifting  surfaces  suggests  that  the  wings 
and  fins  be  separate  surfaces,  in  addition,  the  upper  and  lower  surfaces  of  the  wing  are  separate  panels 
because  that  is  how  the  wing  sections  are  defined. 

•  Since  the  vertical  ftn  is  on  the  plane  of  symmetry,  only  the  right  hand  side  is  explicitly  defined,  with 
the  left  hand  side  generated  as  its  image  panel. 

•  The  fuselage  is  most  easily  treated  by  separating  the  wing  junction  region  from  the  forebody.  In  this 
way  the  entire  forebody  can  be  generated  from  one  panel  using  a  spacing  interval  to  ensure  element 
contiguity  between  the  forebody  and  midbody.  The  midbody  must  necessarily  be  constructed  as 
separate  upper  and  lower  panels  since  the  cutout  for  the  wing  would  be  prohibited  in  a  single  panel. 

•  The  fuselage  aft  of  the  wing  must  be  divided  into  upper  and  lower  panels  so  that  the  side  edges  of  the 
wing  wake  can  abut  panel  edges.  This  is  essential  for  the  correct  calculation  of  the  velocity  on  the  side 
of  the  fuselage.  Note  that  this  is  a  situation  in  which  no  other  panel  arrangements  are  possible  because 
the  wake  panel  must  abut  other  panels  only  at  panel  edges.  Since  the  fuselage  adjacent  to  the  wing  is 
also  divided  into  upper  and  lower  panels  it  is  natural  to  combine  the  aftbody  with  the  wing  junction 
region  so  that  one  panel  describes  the  upper  half  of  the  body  aft  of  the  leading  edge  and  another 
describes  the  corresponding  lower  half  of  the  body.  The  panel  must  have  two  spacing  intervals  with  a 
break  at  the  trailing  edge  of  the  wing  root  to  force  the  elements  on  the  wing,  midbody,  and  aftbody  to 
be  continguous  even  though  the  panel  boundaries  are  not.  This  is  an  example  of  using  one  panel  with 
spacing  ranges  instead  of  several  panels. 

•  The  exhaust  is  modeled  with  a  force  solid  body.  This  has  been  broken  into  upper  and  lower  panels 
like  the  aftbody  so  that  accurate  force  data  could  be  obtained  on  the  exhaust  plume  if  desired. 

The  partitioning  of  the  configuration  into  panels  is  shown  in  Figure  7-24. 


7.11.4.2  Defining  the  Geometry - 

As  a  result  of  this  panel  layout,  ten  panels  have  been  used  to  represent  this  configuration; 
Panel  1  -  Forebody 
Panel  3  -  Upper  Midbody 
Panel  4  -  Lower  Midbody 
Panel  5  -  Upper  Wing 
Panel  6  -  Lower  Wing 
Panel  7  -  Wake  for  Wing 
Panel  8  -  Vertical  Fin 
Panel  9  -  Vertical  fin  Wake 
Panel  20  -  Upper  Plume 
Panel  21  -  Lower  Plume 


189 


MODEL  VIEWED  FROM  UPPER  FRONT  QUARTER 


MODEL  VIEWED  FROM  LOWER  AFT  QUARTER 


Figure  7-25  Mesh  for  Test  Case 


MODEL  GEOMETRY  W/0  WAKES 


MODEL  GEOMETRY  WITH  WAKES 


Figure  7-26  Wake  Geometry 


Panel  1  -  Forebody 

Since  the  forebody  is  a  body  of  revolution,  it  is  most  conveniently  modeled  using  a  series  of 
cylindrical  sections.  The  sections  are  translated  to  appropriate  positions  with  AT  points.  Since  only  two 
points  define  a  circle  using  cylindrical  coordinates,  this  option  is  very  convenient  for  bodies  of  revolution 
or  shapes  which  are  nearly  bodies  of  revolution.  Because  the  panel  is  defined  using  azimuthal  sections,  die 
K  direction  is  azimuthal,  and  the  J  direction  is  longitudinal. 

To  ensure  that  the  elements  in  the  forebody  panel  will  be  contiguous  with  the  elements  on  die 
upper  and  lower  midbody,  a  spacing  interval  in  the  K  direction  is  used.  In  the  last  section  of  the  forebody,  a 
third  point  at  THETA  =  0.,  defines  the  point  which  separates  the  upper  and  lower  midbody  panels  at  the 
leading  edge  of  the  wing.  This  point  is  a  spacing  point  so  that  it  will  be  an  element  comer  point.  The 
spacing  information  in  the  section  definition  overrides  the  spacing  information  following  KSPACE,  but  the 
total  number  of  elements  must  be  the  same. 

A  spacing  interval  in  the  J  direction  has  been  used  to  produce  the  shoulder  between  the  conical 
nose  and  the  cylindrical  body.  Specifiying  JBREAK  =  1  puts  a  break  in  slope  of  the  interpolated  curve  but 
does  not  force  the  mesh  to  have  a  slope  discontinuity  at  the  desired  point  since  the  mesh  might  straddle  the 
breakpoint  Only  by  requiring  that  the  shoulder  be  both  the  end  of  a  spacing  interval  and  a  break  point  is 
the  mesh  forced  to  duplicate  the  shoulder. 

Panel  3  -  Upper  Midbody 

The  midbody  is  comprised  of  upper  and  lower  panels.  The  side  edges  of  the  upper  body  are 
contoured  for  the  intersection  with  the  fin  and  upper  wing  surface.  The  lower  body  is  contoured  to  form  the 
intersection  with  the  lower  wing  surface.The  wing/body  junction  in  this  example  is  specified  in  the 
drawing.  It  is  frequently  the  case  that  the  geometrical  information  provided  to  describe  the  configuration  is 
insufficient  to  define  these  intersections.  The  user  should  then  make  reasonable  geometric  approximations 
to  generate  this  data. 

Since  the  midbody  is  a  body  of  revolution,  it  is  most  conveniently  defined  with  azimuthal 
sections.  The  penalty  for  this  is  that  a  section  must  be  provided  for  each  point  used  to  define  the  wing  root, 
so  that  the  definition  of  the  side  edge  of  the  body  is  identical  to  the  definition  of  the  wing  root.  If  this  is  not 
done,  the  elements  on  the  wing  will  not  precisely  abut  the  elements  on  the  body.  The  same  requirement 
applies  to  the  fin/body  intersection.  Defining  the  midbody  with  longitudinal  sections  eases  that  problem  but 
is  inconvenient  because  the  body  is  not  described  with  longitudinal  sections  so  these  would  have  to  be 
generated  manually. 

The  upper  midbody  is  defined  with  cylindrical  sections  at  the  locations  where  the  wing  and  fin 
roots  are  defined.  The  end  points  of  each  section  are  the  points  used  to  define  the  wing  and  fin,  transformed 
into  the  polar  coordinate  system  used  to  define  the  body.  Consider  first  the  upper  midbody  panel.  The 
lower  edge  of  the  panel  abuts  the  upper  wing  surface  over  part  of  its  length  and  ihe  lower  midbody  panel 
for  the  remainder  of  its  length.  To  make  the  elements  along  the  adjacent  edges  contiguous,  the  intersection 
of  the  trailing  edge  of  the  wing  and  the  body  is  explicity  defined  as  the  end  of  a  spacing  interval.  The  8 
elements  ahead  of  this  point  will  be  contiguous  with  the  8  elements  on  the  wing  and  the  2  elements 
specified  aft  of  this  point  will  be  contiguous  with  elements  on  the  lower  midbody  panel.  To  make  the 
elements  contiguous,  the  spacing  as  well  as  the  number  of  elements  must  be  consistent  on  the  adjacent 
panels.  Therefore,  cosine  spacing  is  used  in  the  first  spacing  interval  (JSPACE  =  1)  to  match  the  wing,  and 
equal  spacing  (JSPACE  -  0)  in  the  second  to  match  the  lower  midbody  panel. 

The  root  trailing  edge  point  must  also  be  specified  as  a  break  point  because  the  upper  wing  surftice 
and  lower  midbody  are  separate  panels  so  that  there  is  a  slope  discontinuity  between  them.  If  this  slope 
discontinuity  were  not  preserved  on  the  upper  midbody,  the  definition  of  the  edge  of  the  upper  midbody 
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would  not  be  identical  to  the  definition  of  the  edge  formed  by  the  upper  surface  and  the  aft  part  of  the 
lower  midbody.  This  would  result  in  a  mesh  with  gaps. 

Scaling  parameters  following  the  keyword  SCALE  are  used  to  produce  the  decrease  in  body 
diameter  at  the  aft  end  of  the  fuselage. 

Panel  4  -  Lower  Midbody 

The  same  considerations  apply  to  the  lower  midbody  panel  as  to  the  upper  midbody  panel.  The 
definition  of  the  lower  midbody  panel  differs  from  that  of  the  upper  midbody  panel  in  that  locater  points 
are  used.  The  use  of  locater  points  is  entirely  optional  and  the  configuration  in  the  present  example  could 
have  been  easily  modeled  without  them.  This  would  have  been  accomplished  by  defining  the  lower 
midbody  panel  in  the  same  way  as  die  upper  midbody  panel,  but  with  the  section  definitions  revised  to 
describe  the  lower  quadrant  of  the  body. 

The  illustrative  use  of  locater  points  in  this  example  exploits  the  fact  that  the  fin  root  section  is 
identical  to  the  wing  root  section.  The  lower  midbody  panel  can,  therefore,  be  constructed  by  rotating  the 
upper  midbody  panel  90  degrees  around  the  X-^axis,  and  replacing  the  contour  for  the  wing  intersection 
with  a  straight  line.  In  this  way,  the  cutout  of  the  fin  on  the  upper  midbody  panel  becomes  die  cutout  for 
the  lower  surface  of  the  wing  on  the  lower  midbody  panel. 

The  first  step  in  defining  the  lower  panel  is  to  start  with  the  upper  panel  but  remove  the  cutout  for 
die  wing.  The  section  definitions  in  the  lower  panel  are  identical  to  die  section  definitions  in  the  upper 
panel  except  that  edge  3  (the  edge  which  abuts  the  wing  surface)  is  at  THETA=0,  RADIUS=10.  The  AT 
points  have  been  removed  because  the  translation  they  fierformed  can  be  done  with  the  locater  points. 

The  use  of  locater  points  in  this  example  involves  starting  with  the  upper  midbody  panel  and 
locating  it  on  the  vehicle  by  selecting  three  points  on  the  panel  as  it  is  defined  and  specifying  the  location 
of  these  three  points  in  the  global  coordinate  system.  Imagine  starting  with  the  upper  midbody  panel 
defined  without  AT  points  so  diat  the  forward  edge  is  at  X=<),  rather  than  at  X=160.  The  point  which  is  at 
the  wing  root  leading  edge  is  mapped  to  the  desired  location  of  the  forward  lower  comer  of  the  lower 
midbody  panel.  This  is  at  X,Y,Z  coordinates  160,0,*10.  Next  the  comer  of  the  upper  midbody  panel  at  the 
wing  root  trailing  edge  is  mapped  to  the  desired  location  of  the  lower  aft  comer  of  the  lower  midbody 
panel  (coordinates  200,0,-10).  Since  the  length  of  the  line  connecting  these  two  points  in  panel  coordinates 
is  equal  to  the  length  of  the  line  connecting  these  two  points  in  global  coordinates,  no  stretching  is  done. 
The  last  step  is  a  rotation  about  the  line  connecting  these  two  points  in  global  coordinates  until  the  plane 
defined  by  all  three  points  in  panel  coordinates  maps  onto  the  plane  defined  by  all  three  points  in  global 
coordinates.  The  third  point  is  selected  to  be  the  upper  forward  comer  of  the  upper  midbody  panel.  The 
desired  orientation  of  tiie  lower  midbody  panel  is  obtained  by  mapping  the  plane  formed  by  the  lower 
forward  comer,  lower  aft  comer,  and  upper  forward  comer  of  the  upper  midbody  panel  onto  the  lower 
forward  comer,  lower  aft  comer,  and  upper  forward  comer  where  the  lower  midbody  panel  is  to  be  placed. 
This  is  accomplished  by  selecting  global  location  of  the  third  point  to  the  upper  forward  comer  of  the  lower 
midbody  panel  (coordinates  160,10,0). 

Many  other  choices  of  locater  points  could  have  been  used  to  produce  the  same  positioning  of  the 
panel.  While  the  locater  points  used  in  this  example  are  on  the  panel  this  need  not  be  so  in  general.  Also  the 
three  points  in  panel  coordinates  all  mapped  onto  the  points  specified  in  global  coordinates.  In  general  only 
the  first  two  points  specified  map  onto  corresponding  points  in  both  coordinate  systems. 

All  spacing  interval  and  breakpoint  considerations  which  apply  to  the  upper  midbody  panel  apply 
to  the  lower  midbody  panel. 
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Panels  5,6,  and  7  -  Wing  Group 

The  upper  and  lower  surface  of  the  wing  are  separate  panels  which  are  defined  using  identical 
techniques.  Each  panel  is  defined  with  two  sections,  one  at  the  root  and  one  at  the  tip.  AT  points  are  used 
to  locate  the  sections  in  global  space,  with  SCALE  parameters  used  to  establish  the  chord  length  and 
thickness.  The  root  section  is  a  nonplanar  space  curve  which  describes  the  intersection  of  the  wing  with  the 
circular  body.  After  translation  with  the  AT  points  has  been  done,  the  points  are  identical  to  the  points  used 
to  describe  the  side  edge  of  the  portion  of  the  upper  midbody  panel  which  is  adjacent  to  the  wing.  The 
points  are  expressed  in  rectangular  coordinates  here,  whereas  they  are  expressed  in  cylindrical  coordinates 
in  the  definition  of  the  body  panel. 

In  order  to  generate  contiguous  elements  at  the  wing/body  intersection,  the  number  and  spacing  of 
the  elements  must  be  identical  in  adjoining  parts  to  the  two  components.  The  wing  is  defined  with 
longitudinal  sections  so  that  the  K  direction  runs  fore  to  aft.  The  body  is  defined  with  sections  in  the 
azimuthal  direction  so  it  is  the  J  direction  of  the  body  panel  which  runs  fore  to  aft.  Therefore,  the  K  spacing 
of  the  wing  must  match  the  J  spacing  of  the  body.  The  flexibility  of  panel  orientation  in  QUADPAN  means 
that  any  edge  of  one  panel  can  abut  any  edge  of  another  panel.  Hence,  care  must  be  taken  to  determine  the 
J  and  K  directions  on  each  panel  so  that  the  spacing  of  adjoining  panels  can  be  made  compatible. 

The  wing  wake  is  defined  as  a  panel  with  sections  at  the  root  and  tip.  Edge  4  of  the  wake  abuts  the 
trailing  edge  of  the  wing,  so  the  wake  is  a  TYPE  4  panel.  This  edge  of  Ae  wake  must  be  defined  with 
exactly  the  same  set  of  points  used  to  define  the  trailing  edge  of  the  wing  so  that  precise  alignment  of  the 
wake  with  the  wing  is  obtained. 

The  inboard  edge  of  the  wake  conforms  to  the  side  of  the  fuselage,  and  is  spaced  to  be  compatible 
with  the  fuselage  so  that  the  abutment  will  be  found.  See  Figure  7-26.  The  pressure  on  the  fuselage  will  be 
incorrect  if  this  is  not  done.  The  side  edge  of  the  wake  adjoins  both  the  aft  portion  of  the  midbody  panels 
and  the  body  which  is  used  to  simulate  the  exhaust  plume.  The  first  spacing  interval  is  used  to  match  the 
wake  to  the  aft  spacing  interval  in  the  upper  and  lower  midbody  panels.  The  next  two  spacing  intervals 
match  the  wake  to  the  two  spacing  intervals  on  the  body  which  models  the  exhaust,  and  the  final  spacing 
interval  extends  the  wake  a  large  distance  downstream. 

Spacing  intervals  on  the  outboard  edge  of  the  wake  are  provided  to  deep  the  elements  on  the  wake 
ftom  becoming  too  highly  skewed.  Instead  of  duplicating  the  spacing  intervals  used  on  the  inboard  edge  on 
the  outboard  edge,  the  intervals  over  boattail  and  the  exhaust  plume  were  combined  into  one  interval  and  a 
fractional  spacing  was  used  to  produce  reasonably  shaped  elements.  The  fiactional  spacing  used  here  is  a 
combination  of  sine  and  equal  spacing. 

Panels  8  and  9  -  Vertical  Fin  Group 

The  construction  of  the  vertical  fin  is  identical  to  that  of  the  wing.  The  panel  coordinate  system 
has  the  same  orientation  as  the  global  coordinate  system  since  locater  points  are  not  used.  Therefore,  the 
thickness  of  the  fin  is  produced  by  nonzero  values  of  the  Y  coordinate  in  the  section  definitions.  The  points 
defining  the  root  section,  the  number  of  elements  and  the  spacing  must  all  match  the  adjoining  part  of  the 
midbody  to  produce  a  mesh  with  contiguous  elements.  AT  points  are  used  to  translate  the  sections  to  the 
correct  locations  and  the  SCALE  keyword  is  used  to  scale  the  tip  section  to  obtain  the  correct  chord. 

The  vertical  fin  wake  (see  Figure  7-26)  is  defined  in  essentially  the  same  fashion  as  the  wake  for 
the  wing.  Whereas  the  wake  for  the  wing  is  defined  entirely  in  global  coordinates,  the  fin  wake  is  defined 
with  AT  points.  This  is  entirely  for  illustrative  purposes. 

It  is  important  to  notice  that  the  wake  for  the  vertical  fin  has  an  image  even  though  it  lies  on  the 
plane  of  symmetry.  See  Figure  7-27.  Any  wake  which  is  on  the  plane  of  symmetry  should  have  an  image 
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of  the  rest  of  the  panels  in  the  configuration  have  images.  While  the  program  would  run  and  give  correct 
answers  if  IMAGE  were  set  to  zero,  about  four  times  as  much  computer  time  would  be  used. 

Panels  10  and  11  -  Exhaust  Plume 

The  exhaust  plume  consist  of  upper  and  lower  panels.  The  panels  have  TYPE  set  to  0  because 
they  have  hydrodynamic  boundary  conditions  associated  with  them.  The  parameter  FORCE  is  set  to  0  so 
that  these  panels  do  not  contribute  to  the  total  forces  and  moments. 

The  geometry  of  these  panels  is  developed  in  the  same  way  as  the  upper  midbody  panel.  Upper 
and  lower  panels  were  used  so  that  the  program  would  include  the  wake  from  the  wing  in  calculating  the 
pressure  on  the  body.  Since  the  forces  produced  by  these  panels  are  not  used  this  is  not  critical.  However, 
the  forces  on  the  panels  may  be  of  interest  in  assessing  the  validity  of  the  model,  in  which  case  establishing 
the  abutment  with  the  edge  of  the  wake  is  important. 
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8^  PANEL  ABUTMENTS 


8.1  INTRODUCTION 

This  chapter  provides  information  on  panel  edge  abutments  and  the  automatic  procedure  used  in 
QUADPAN  to  establish  panel  abutments  and  element  neighbors.  The  limitations  on  panel  abutments  are 
presented,  along  with  guidelines  for  setting  the  input  parameters  controlling  the  abutment  search.  Finally, 
the  panel  abutment  list  in  the  output  print  from  each  QUADPAN  run  is  discussed. 


8.2  ABUTMENTS 


Before  further  discussion  it  is  important  to  understand  the  terminology  and  relevance  of  panel 
abutments.  It  should  be  realized  that  panel  abutments  deal  only  with  the  “developed”  surface  lattice,  after 
geometry  generation  is  complete  and  a  regular  lattice  is  defined. 

Input  geometries  for  QUADPAN  are  represented  by  a  lattice  of  quadrilateral  surface  elements. 
These  surface  elements  are  grouped  into  a  number  of  PANELS  in  order  to  simplify  the  task  inputting  the 
geometry,  and  to  organize  the  large  number  of  elements  required  to  define  that  geometry  into  smaller,  more 
manageable  pieces.  The  division  of  the  configuration  surface  into  panels  is  illustrated  in  Figure  6-2  and 
Figure  6-3. 

As  described  in  6.4.2,  it  is  desirable  that  the  sur&ce  lattice  for  QUADPAN  be  as  continuous  as 
possible,  with  each  element  contiguous  with  its  neighboring  elements.  This  is  illustrated  in  Figure  6-4. 
These  element  neighbors  are  used  in  determining  the  surface  velocity,  by  a  finite  difference  procedure  on 
the  surface  potentials  at  the  nearby  elements.  They  are  also  used  to  set  up  Kutta  conditions  at  wake 
shedding  lines,  and  to  properly  treat  wake  side  edges  that  touch  other  body  surfaces. 

If  only  a  single  panel  were  used  to  define  the  entire  geometry,  with  a  topologically  rectangular 
lattice  of  elements,  there  would  be  no  problem  in  defining  an  element’s  immediate  neighbors,  but  only 
simple  geometries  could  be  described.  Instead,  the  configuration  is  described  by  a  collection  of  panels,  and 
the  task  of  locating  neighboring  elements  is  make  more  complex  for  those  elements  that  lie  on  the  edges  of 
the  panels.  In  this  case,  neighboring  elements  will  be  located  on  the  edges  of  other  nearby  panels. 

An  ABUTMENT  is  defined  by  the  contiguous  elements  on  neighboring  panel  edges.  Panel 
abutments  consist  of  the  elements  on  the  edge  of  a  panel  that  are  contiguous  to,  or  touching,  edge  elements 
on  another  panel,  the  same  panel,  or  the  image  of  the  same  panel  across  the  plan  of  symmetry. 


83  RULES  ON  PANEL  ABUTMENTS 


Panels  are  regarded  by  the  program  as  topologically  rectangular,  with  four  panel  edges  and  a  row 
and  column  grid  of  quadrilateral  elements,  regardless  of  the  actual  geometrical  shape.  Abutments  concern 
the  elements  that  lie  on  the  panel  edges. 

The  following  ground  rules  apply  to  panel  abutments: 
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•  Panels  may  only  (only! ! )  abut  (touch)  one  another  at  their  edges. 

•  Panels  edges  that  are  degenerate  (zero  length)  are  defined  as  not  abutting,  with  no  neighbors. 

•  Any  number  of  panels  may  abut  a  panel  edge,  however,  no  more  than  four  elements  may  abut  (touch) 
one  another  along  a  common  element  edge.  Figure  6-8. 

Except  for  these  limitations,  panels  may  abut  in  any  fashion.  Edges  may  abut  themselves  or  other  edges  in 
the  same  panel  or  different  panels. 


8.4  AUTOMATIC  ABUTMENT  PROCEDURE 

The  program  contains  an  automatic  procedure  to  search  ail  panel  edges  to  establish  contiguous 
neighboring  elements  across  panel  boundaries.  This  procedure  will  normally  find  all  contiguous  abutments 
in  the  configuration,  relieving  the  user  of  the  burden  of  specifying  connecting  panel  edges  and  elements  in 
all  but  a  few  extreme  cases. 

The  panel  abutment  procedure  worics  by  searching  for  panel  edge  elements  whose  side  midpoints 
(the  side  midpoint  lies  between  that  element’s  lattice  point  at  the  panel  edge)  are  within  a  specified  distance 
of  one  another  (See  Figure  8-2).  As  a  result  of  this  search  technique  elements  which  are  contiguous  (i.e., 
that  line  up  with  one  another)  will  be  found  to  abut.  In  addition  to  checking  all  of  the  user  defined  panel 
edges,  die  abutment  search  also  checks  for  neighboring  elements  that  lie  across  die  plane  of  symmetry 
when  the  configuration  is  laterally  symmetric. 

As  mentioned  above,  degenerate  panel  edges  do  not  abut  other  panel  edges  The  abutment 
procedure  identifies  degenerated  panel  edges  by  comparing  the  panel  edge  length  to  the  absolute  geometric 
tolerance  distance  —  ABSTOL  (discussed  below).  TTie  panel  edge  length  is  defined  by  the  sum  of  the 
lengths  of  the  sides  of  the  edge  elements,  and  the  edge  is  degenerate  if  this  length  is  less  than  ABSTOL. 


8.4.1  Abutment  Search  Distance 

As  discussed  above,  the  automatic  abutment  procedure  uses  a  geometric  tolerance  distance  in  its 
search  to  establish  the  panel  edge  element  abutments.  Element  side  midpoints  on  abutting  elements  must  be 
within  this  tolerance  distance.  In  order  to  make  the  abutment  search  as  reliable  as  possible,  especially  in 
complex  cases  where  the  element  sizes  may  vary  over  a  large  range,  the  search  distance  used  by  the 
program  is  not  constant  Instead,  the  search  distance  is  set  by  two  user-specified  parameters,  ABSTOL  and 
RELTOL. 

•  ABSTOL  is  the  absolute  search  tolerance,  specified  in  global  coordinate  units. 

•  RETOL  is  the  relative  search  tolerance,  specified  as  a  fraction  of  tiie  length  of  the  element  edge. 

All  abutting  element  side  midpoints  must  be  within  the  tolerance  distance  defined  by  the  smaller 
of  ABSTOL  and  RELTOL*  (element  edge  length).  The  ABSTOL  parameter  gives  an  upper  limit  to  the 
search  distance,  while  RELTOL  provides  a  locally  scaled  limit  to  the  search  distance  that  is  proportional  to 
the  length  of  the  element  edge  whose  neighbors  are  being  sought. 
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8.4.2  Setting  the  Abutment  Parameters 

The  automatic  abutment  procedure  is  controlled  by  two  user-specified  parameters,  ABSTOL  and 
RELTOL,  that  set  the  tolerance  distance  used  for  the  abutment  search.  Both  of  these  parameters  have 
defaults,  but  some  adjustment  is  normally  necessary  for  each  case.  It  is  recommended  that  ABSTOL  be 
used  as  the  primary  means  to  control  the  abutment  search. 

ABSTOL  is  the  absolute  search  tolerance,  specified  in  global  coordinate  units.  This  parameter  is 
the  primary  means  available  to  control  the  automatic  abutment  procedure.  ABSTOL  is  normally  set 
sufficiently  small  that  there  tire  no  abutment  warnings  or  errors  due  to  unintended  neighbors,  and 
sufficiently  large  that  all  the  abutting  edges  are  found  by  the  program.  For  configurations  where  the 
geometry  is  defined  precisely,  with  no  gaps,  ABSTOL  may  be  set  quite  small  (within  reason,  as  discussed 
below).  When  there  are  gaps,  ABSTOL  must  be  adjusted,  and  /or  user-specified  abutments  used  to  find  all 
the  abutting  edges  or  avoid  ambiguous  or  unintended  abutments. 


ELEMENT  WHOSE 
NEIGHBORS  ARE  SOUGHT 

/  / 


/ 


/ 


4 

/ 


PANEL  A 


PANEL  B 


Figure  8-1  Operation  of  Abutment  Search 
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As  a  result  of  limited  numeric  precision  in  any  computer,  there  is  a  lower  limit  to  the  value  that 
ABSTOL  may  be  given.  This  lower  limit  must  be  larger  than  the  product  of  the  available  machine 
precision  (as  a  fraction  of  1)  and  the  maximum  X,  Y,  and  Z  coordinate  value  at  any  panel  edge.  For  the 
IBM  computer  the  available  precision  is  roughly  5.0E-7.  If,  for  example,  the  configuration  were  1,000 
units  long  in  the  X  direction,  ABSTOL  should  be  set  larger  than  5.0E-4,  with  0.005  as  a  good  starting 
value. 


RELTOL  is  the  relative  tolerance  distance,  as  a  fraction  of  the  element  edge  length.  This 
parameter  provided  a  local  scaling  to  the  abutment  tolerance  distance.  This  parameter  defaults  to  0.1,  and 
normally  should  be  given  this  value.  RELTOL  acts  to  limit  the  minimum  angle  between  panels  before  the 
abutment  search  determines  that  they  are  connected,  such  as  at  the  tip  edge  of  upper  and  lower  wing  panels 
near  the  trailing  edge.  This  parameter  should  never  be  given  a  value  higher  than  0.5. 


8.5  USER-SPECIFIED  ABUTMENTS 

In  the  great  majority  of  cases  the  automatic  procedure  will  establish  the  element  connectivity 
without  user  intervention.  This  will  be  true  especially  where  the  input  geometry  is  relatively  gapless,  and 
the  abutment  search)  tolerance  is  set  small.  Some  cases,  however,  may  require  the  user  to  restrict  the  search 
space  for  the  automatic  abutment  search  to  eliminate  possible  abutment  ambiguities. 

Like  any  automatic  procedure,  the  abutment  search  can  sometimes  fail.  This  normally  happens 
when  it  finds  too  many  nearby  elements  at  an  element  edge.  This  happens  in  two  situations: 

•  If  more  dian  two  body  type  elements  (or  wake  type  elements  )  abut  at  a  panel  edge  the  program  issues 
a  warning  message  because  there  is  not  obvious  single  neighboring  element  to  use  to  calculate  the 
surface  velocity.  In  this  ambiguous  situation  the  program  will  ignore  all  neighboring  elements  at  that 
element  edge,  basing  velocities  on  backward  gradients  calculated  without  crossing  the  panel  edge.  The 
accuracy  at  this  Junction  is  reduced,  exactly  the  same  as  when  noncontiguous  elements  are  used.  This 
is  only  a  problem  where  the  gradients  across  the  junction  are  significant. 

•  If  more  than  four  neighboring  panels  abut  at  an  edge,  the  program  issues  a  warning  message  because 
the  program  limitation  of  four  abutting  panels  is  exceeded.  This  may  need  to  be  fixed  before  the  run 
should  be  done.  In  this  situation,  like  the  previous  one,  the  program  will  ignore  all  neighboring 
elements  at  that  element  edge,  and  velocities  will  be  calculated  without  crossing  the  panel  edge.  This 
results  in  a  reduction  of  accuracy  at  this  junction,  which  is  only  a  problem  where  the  gradients  across 
the  junction  are  significant. 

These  situations  usually  a  rise  when  there  are  small  gaps  between  edges,  and  the  abutment  search 
tolerance  has  had  to  be  increased.  This  is  also  sometimes  a  problem  at  the  side  edges  of  wing  panels  where 
very  small  elements  are  used  near  a  thin  trailing  edge. 

To  eliminate  such  abutment  ambiguities,  it  may  be  necessary  to  restrict  the  search  space  used  by 
the  abutment  procedure.  The  search  space,  which  normally  arranges  over  all  the  panel  edges  in  the 
configuration  should  check  for  abutting  elements.  This  can  be  done  using  the  optional  keyword  ABUT  (0). 
The  use  of  a  user-specified  abutment  does  not  guarantee  that  panel  edges  abut,  it  merely  specifies  which 
edges  may  be  searched  with  the  automatic  procedure. 


8.5.1  Application  of  User-Specified  Abutments 

In  addition  to  their  use  in  fixing  abutment  errors,  user-specified  abutments  may  also  be  used  to 
control  some  aspects  of  the  potential  flow  calculation.  The  coarsely  paneled  swept  wing,  illustrated  in 
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Figure  8-2,  is  an  example.  Only  three  spanwise  columns  of  panels  have  been  used,  which  concentrates  too 
few  elements  near  the  tip  to  capture  the  details  of  the  flow  in  that  region.  If  the  gradient  around  the  tip  is 
high,  which  will  be  the  case  for  large  angles  of  attack,  the  velocities  on  the  outboard  strip  of  elements  may 
be  adversely  affected  by  the  coarse  spacing  distribution  used  near  the  wingtip  (the  spanwise  velocities  will 
be  affected  and  may  be  too  high). 


Figure  8-2  Swept  Wing  With  Coarse  Spanwise  Paneling 
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The  most  accurate  way  to  model  this  configuration  is  to  place  several  narrow  strips  of  elements 
near  the  wing  tip  and  around  the  wing  tip  closure  to  properly  represent  the  gradient  there.  However,  if  the 
actual  details  of  the  flow  near  the  tip  are  not  required,  the  additional  element  s  might  not  be  needed.  Since 
the  tip  effects  are  localized,  it  is  undesirable  to  have  QUADPAN  spread  them  over  one-third  of  the  wing  by 
using  the  potential  on  the  tip  to  calculate  the  velocity  on  the  outboard  wing  elements.  The  best  technique 
for  this  crude  geometric  model  is  to  prevent  the  code  from  using  the  using  tip  elements  to  calculate  the 
velocities  on  the  wing  surface  by  restricting  the  abutment  search  at  the  tip.  In  this  way,  the  user  can 
partially  overcome  deficiencies  resulting  from  an  inadequate  number  of  elements  at  the  wing  tip. 

This  can  be  accomplished  if  the  panels  are  forced  to  be  noncontiguous  by  “disconnecting”  the 
upper  and  lower  wing  panel  tip  edges  from  the  tip.  The  search  space  for  those  panels  can  be  altered  using 
the  ABUT  keyword  to  specify  0  for  the  abutting  panel(s)  on  those  edges.  It  should  be  pointed  out, 
however,  that  if  the  paneling  were  sufficiently  concentrated  in  the  tip  region  to  capture  the  gradients,  the 
user  would  probably  do  as  well,  or  better,  by  letting  the  program  connect  the  panels  together. 


8.6  PANEL  ABUTMENT  EXAMPLE 

The  operation  of  the  automatic  panel  abutment  procedure  is  illustrated  in  Figure  8-3.  This  case 
consists  of  three  flat  panels  of  different  size,  denoted  as: 

Panel  A  ID->  1 1  modeled  as  an  NK  =  2  by  NJ  =  6  element  array 

Panel  B  ID->  12  modeled  as  an  NK  =  3  by  NJ  =  3  element  array 

Panel  C  ID->  1 3  modeled  as  an  NK  =  2  by  NJ  =  4  element  array 

The  edge  numbers  and  local  J  and  K  indices  within  each  panel  are  shown  in  the  figure. 

The  Panel  Abutment  List  produced  by  QUADPAN  for  this  three  panel  geometry  is  shown  in 
Figure  8-4.  The  abutment  parameters  for  this  case  are  shown  preceding  the  abutment  list  (ABSTOL  =  .002, 
RELTOL  =  .  1).  The  abutments  for  each  of  the  edges  of  the  panels  is  listed  in  a  compressed  form,  given  by 
die  starting  and  ending  J  and  K  indices  of  the  abutting  elements  on  both  sides  of  the  abutment.  For 
example.  Edge  2  of  PANEL  A  (1 1)  has  been  found  to  abut  elements  on  edge  3  of  PANEL  B  (12)  and  edge 
of  2  of  PANEL  C  (13).  Notice  that  a  number  of  the  edges  have  been  found  that  do  not  abut  any  other 
panels.  In  addition,  edge  3  of  PANEL  C  and  edge  2  of  PANEL  B  have  not  been  found  to  abut.  This  is  due 
to  noncontiguous  elements  at  those  edges. 

Although  use  of  the  Abutment  List  can  be  confusing,  because  the  user  must  consider  the  orientation  of 
panel  and  its  edges,  it  is  one  of  the  essential  tools  for  the  debugging  and  validation  of  QUADPAN  datasets. 
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EDGE  NO.'S  (J.  K)  LOCAL  PANEL  INDICES 


Figure  8-3  Abutment  Example 
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Figure  8-4  Example  Abutments  List 
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SEARCH  PARAHETERS  USED  FOR  ESTABLISHING  PANEL  EDGE  AB'JTHEIITS 
ABSTOL  s  0.2000E-02  INAXIHUH  ABSOLUTE  HATCHING  DISTANCE  BETNEEN  ELEHENT  EDGE  MIDPOINTS) 

RELTOL  s  0.10QOE«00  (MAXIMUM  RELATIVE  MATCHING  DISTANCE  BETWEEN  ELEMENT  EDGE  MIDPOINTS 
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